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DIGITAL  CONTROL  SYSTEM  DEVELOPMENT 
FOR  OPTICAL  MIRROR  FIGURE  CONTROL 


ABSTRACT 

The  maintenance  of  accurate  primary  mirror  figure  in  the  face 
of  environmental  disturbances  is  the  key  to  the  achievement  of 
diffraction -limited  performance  in  a  large  space  telescope.  In  order 
to  develop  the  concepts  of  optical  mirror  figure  control,  an  experi¬ 
mental  program  has  been  initiated  at  the  Marshall  Space  Flight  Center 
Huntsville,  Alabama,  A  major  component  in  this  experiment  will  be 
an  XDS  Sigma  5-2  multi -digital  computer  system  which  will  realize 
the  mirror  figure  control  algorithm. 

Development  of  the  control  system  for  the  experimental  active 

mirror  was  initially  described  in  two  earlier  MIT/DL  reports  in  this 
1  2 

series,  ^  This  report  extends  the  previous  work  in  several  areas. 
Figure  control  laws,  suitable  for  digital  computer  implementation, 
have  been  designed  and  incorporated  in  a  very  flexible  software 
package.  A  figure  control  system  simulation  capability  was  achieved 
by  including  models  of  the  figure  sensor,  figure  actuators,  mirror 
structure  and  a  simulation  control  module  in  the  software  package. 
This  permits  the  figure  sensor  control  software  to  be  completely 
checked  out  and  evaluated  using  the  simulation  before  interface  with 
the  actual  hardware  components  is  attempted. 
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CHAPTER  1 


AN  EXPERIMENTAL  ACTIVE  MIRROR 


1. 1  Introduction 


Astronomical  observations  through  a  large  earth -based  telescope 

suffer  from  limitations  placed  on  the  resolving  power  of  the  telescope 

by  fluctuations  in  the  earth's  atmosphere.  As  part  of  a  space  orbiting 

astronomical  laboratory,  however,  a  telescope  would  not  be  subject  to 

these  limitations,  A  large  instrument  which  is  diffraction -limited 

over  a  major  part  of  its  useful  spectrum  of  observation  is  envisioned. 

Maximum  resolving  power  requires  extremely  accurate  maintenance 

1  “9 

of  the  figure  of  the  primary  mirror. 

Although  it  is  possible  to  polish  a  large  mirror  to  the  desired 
surface  accuracy,  stresses  introduced  by  thermal  variations  in  the 
mirror  and  fluctuations  in  support  structure  loads,  structural 
instability  and  the  elimination  of  gravity  loading  in  orbit  could  create 
surface  perturbations  which  would  exceed  the  surface  accuracy  limits 
required  for  diffraction  limited  performance.  As  a  result,  investi¬ 
gators  have  attempted  to  develop  techniques  for  actively  correcting 

the  mirror  figure  in  a  space  environment  and  a  number  of  promising 

1  -9 

control  techniques  have  been  developed.  The  development  and 
application  of  these  control  concepts  is  one  of  the  key  challenges 
facing  the  designer  of  the  large  space  telescope. 

The  development  of  Mirror  Figure  Control  Systems  at  the 
M.  1.  T.  Draper  Laboratory  was  initially  on  a  theoretical  level  which 
defined  hypothetical  analytical  models  of  the  various  figure  control 
system  components  and  the  control  algorithms  necessary  to  achieve 
figure  control.  ^  An  investigation  was  also  made  of  the  potential 
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improvement  in  rms  deformable  mirror  figure  accuracy  as  a  function 
of  the  number  of  actuators  used  and  their  arrangement.  These 
studies  indicated  the  basic  feasibility  of  figure  control  and  the  fact 
that  substantial  improvements  in  figure  accuracy  could  be  achieved 
even  with  a  relatively  modest  figure  control  system  realization. 

While  the  large  scale  digital  computer  is  an  extremely  valuable  tool 
for  the  analysis  and  simulation  of  complicated  mirror  figure  control 
systems,  the  results  obtained  are  only  as  reliable  as  the  modelling 
accuracy  of  the  physical  components  in  the  system.  Accurate  model¬ 
ling  requires  a  considerable  amount  of  intuition  if  the  trade-off 
between  modelling  accuracy  and  computation  time  and  smalytical 
difficulty  are  to  be  resolved  satisfactorily.  Often,  terms  neglected 
in  the  modelling  process  are  of  key  importance  to  the  overall  system 
design. 

To  resolve  these  problems  it  is  important  to  have  some  way  of 
checking  the  results  of  numerical  analysis  against  actual  system 
behavior.  Such  checks  are  furnished  by  an  experimental  program. 

Experimental  work  in  the  past  has  been  largely  conducted  using 
analog  devices  to  synthesize  figure  actuator  commands  from  surface 
error  measurements.  As  a  result  of  the  expense  and  time  associated 
with  programming  a  general  purpose  analog  computer  or  constructing 
a  special  purpose  analog  system,  it  has  been  difficult  to  explore  the 
full  spectrum  of  control  solutions  or  efficiently  process  experimental 
data. 


In  response  to  these  problems,  a  more  efficient  experimental 
tool  has  evolved  in  the  hybrid  digital  analog  computer  system. 

Spurred  by  declining  cost  hybrid  computing  systems  are  appearing  in 
a  wide  variety  of  laboratory  environments.  Software  has  been  developed 
at  MIT/DL  which  permits  a  hybrid  digital  computer  to  provide  the 
sensor  signal  processing  and  control  computations  for  an  experimental 
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active  mirror  figure  control  system. 


1.  2  Experiment  Design  Concept 


The  experimental  system  consists  of  the  primary  mirror  fitted 
with  actuators  for  figure  modification,  a  mirror  figure  sensor  and 
an  "on  line"  control  system  processing  the  figure  errors  measured 
by  the  sensor  to  provide  proper  corrective  signals  to  the  actuators. 

Following  a  modern  approach  a  digital  computer  has  been 
selected  as  the  control  processor  of  the  experimental  system.  The 
utilization  of  a  general  purpose  computer  has  a  number  of  advantages, 
including: 

1.  Programmability  permitting  a  large  number  of  different 
primary  mirror  control  configurations  to  be  investigated 
without  extensive  hardware  modification. 

2.  The  ability  to  handle  a  number  of  auxiliary  tasks  such  as 
experimental  data  processing  and  display. 

3.  Characteristics  similar  to  the  system  computer  which  will 
be  used  in  an  orbiting  astronomical  observatory. 

A  simplified  block  diagram  of  an  experimental  active  mirror  is 
shown  in  Figure  1.2.  1.  The  digital  computer  consists  of  a  central 
processor,  a  random  access  core  memory  and  an  input -output 
processor.  The  central  processor  handles  arithmetic  operations,  logic 
operations  and  some  data  transfer  operations  using  instructions 
extracted  from  the  core  memory.  The  input -output  processor  controls 
the  transfer  of  information  from  the  central  processor  and  core  memory 
to  computer  peripherals  which  are  part  of  the  interface  with  the  real 
world.  The  core  memory  holds  two  types  of  stored  information, 
program  instructions  and  program  storage.  The  program  instructions 
tell  the  computer  what  to  do  with  information  extracted  from  program 
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Fig.  1.2.  1  A  digital  control  system  for  an  experimental  active  mirror. 


storage  and  input  devices. 


The  interface  consists  of  a  number  of  components.  The  digital 
output  buffers  are  a  set  of  addressable  registers  which  temporarily 
store  digital  information,  which  is  converted  to  an  analog  signal  by  the 
digital  to  analog  converters.  The  output  signals  from  the  digital  to 
analog  converters  provide  measurement  coordinate  signals  for  the 
figure  sensor  image  dissector  and  actuator  command  signals  which  are 
modulated  by  DC -AC  modulators.  The  modulator  outputs  are 
amplified  by  the  actuator  power  amplifiers  to  provide  sufficient  energy 
to  drive  the  actuator  motors.  The  state  of  the  hardware  is  observed 
by  the  computer  via  means  of  the  actuator  output  sensor  and  the  figure 
sensor  error  measurements.  The  analog  figure  sensor  and  actuator 
output  signals  pass  through  a  computer -controlled  switch  or  multiplexer; 
the  single  output  of  the  multiplexer  is  converted  to  a  digital  signal  by 
the  analog  to  digital  converter.  The  digital  signal  is  then  transferred 
to  the  central  processor  or  the  correct  location  in  the  core  memory  by 
the  input -output  processor. 

1,  3  Software  Design  Considerations 


The  actual  experimental  system  is  complicated  by  the  use  of  two 
computers  rather  than  one  as  indicated  in  Fig.  1.  2.  1.  The  real  time 
control  computations  are  performed  in  an  XDS  Sigma  2  computer  which 
is  available  to  the  experiment  on  a  dedicated  basis.  The  relatively  small 
memory  capacity  of  this  computer  severely  limits  the  scope  of  the 
program  which  it  can  successfully  execute.  As  a  result,  it  was  decided 
to  use  a  second,  more  powerful,  computer,  the  XDS  Sigma  5  to  perform 
most  of  the  complex  arithmetic  and  data  processing  operations  on  a 
time-shared  basis.  This  decision  necessitated  the  development  of 
an  elaborate  software  module  to  transfer  program  control  and  data 
from  the  5  to  the  2  and  vice  versa. 
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A  digital  simulation  capability  was  also  realized  to  provide 
numeajipal  data  for  comparison  with  experimental  results  and  to  aid  in 
the  development  of  figure  control  strategies.  The  real  time  control 
software  for  the  EAM  is  an  integral  part  of  the  simulation  which  in 
essence  substitutes  mathematical  models  for  the  actual  hardware 
components,  Selection  of  the  simulation  mode,  hardware  control 
mode,  and  various  other  operating  configurations  is  accomplished  via 
a  set  of  mode  selection  variables. 


*  Using  the  techniques  successfully  employed  during  the  Apollo 
program. 
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CHAPTER  2 

EXPERIMENTAL  ACTIVE  MIRROR  COMPONENT  MODELS 


2. 1  Introduction 


The  hardware  components  of  the  experimental  active  mirror 
consist  of  devices  to  measure  the  figure  error,  figure  sensors, 
figure  actuators  for  effecting  changes  in  the  mirror  figure  and  the 
primary  mirror  structure  itself. 

In  order  to  analyze  and  to  simulate  the  experimental  active 
mirror  it  is  necessary  to  develop  mathematical  models  of  the  system 
hardware  components.  This  chapter  describes  the  major  EAM 
components  and  presents  simplified  mathematical  models  which 
characterize  their  operation. 

2.2  Optical  Figure  Sensor 

The  figure  error  measurement  function  is  provided  by  the  optical 
8  10 

Figure  Sensor.  '  The  Figure  Sensor  is  a  modified  Twyman-Green 
two-beam  interferometer.  The  interferometer  utilizes  a  laser  to 
produce  a  coherent  beam  of  light.  The  plane  laser  wavefront  enters  a 
beamsplitter  where  it  is  divided  into  two  beams.  One,  a  reference 
beam,  is  allowed  to  illuminate  a  plane  reference  mirror,  the  second 
beam  is  passed  through  an  aspheric  decollimating  lens  which  creates  a 
spherical  wavefront  illuminating  the  unobscured  aperture  of  the  mirror 
under  test.  In  the  case  of  a  spherical  primary  mirror,  coincidence  is 
maintained  between  the  centers  of  curvature  of  the  primary  mirror 
figure  and  the  spherical  wavefront  emanating  from  the  decollimator. 

The  reflected  energy  from  the  primary  returns  through  the  de collimator 
where  collimation  occurs.  The  collimated  wavefront  mixes  with  the 
reflected  energy  from  the  reference  flat  mirror  at  the  beamsplitter 
producing  an  interference  pattern  which  is  imaged  on  the  face  of  an 
image  dissector  tube. 
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Irregularities  in  the  spherical  primary  mirror  figure  result  in 
a  nonspherical  returning  wavefront  and  ensuing  fringes  in  the  inter¬ 
ference  pattern.  Since  a  one  to  one  relationship  exists  between 
position  in  the  interference  pattern  and  position  on  the  mirror  surface 
it  is  possible  to  identify  the  location  of  figure  errors. 

The  actual  measurement  of  the  magnitude  of  the  figure  error  is 
accomplished  electronically.  Suppose  that  the  reference  mirror  is 
mounted  on  a  piezoelectric  crystal  arranged  so  that  the  introduction 
of  an  electric  field  produces  an  axial  translation  of  the  mirror  varying 
the  optical  path  difference  between  the  two  arms  of  the  interferometer. 
The  variation  in  path  produces  a  sinusoidally  related  change  in  the 
interference  pattern  intensity.  The  current  system  utilizes  a  trian¬ 
gular  driving  signal  to  modify  the  path  length  which  results  in  a  number 
of  cycles  variation  in  the  intensity  level.  As  a  result,  interference 
pattern  information  provided  by  the  image  dissector  is  of  a  sinusoidal 
nature.  The  frequency  associated  with  the  intensity  variation  is  the 
product  of  the  optical  path  difference  modulator  drive  frequency  times 
the  number  of  complete  cycles  of  intensity  variation  during  each 
complete  path  length  modulation  cycle.  The  sinusoidal  variation  in  the 
interference  pattern  at  a  designated  point,  sampled  by  a  photodiode,  is 
used  to  provide  a  reference  signal.  The  phase  difference  between  the 
intensity  variation  at  the  reference  point  and  a  measurement  point  in 
the  interferogram,  observed  by  the  image  dissector,  is  proportional  to 
the  figure  error  at  the  measurement  location.  Measurement  ambiguity 
arises  from  the  inability  of  the  phase  detector  to  differentiate  phase 
shifts  which  are  multiples  of  360  degrees. 

The  output  of  the  figure  sensor  contains  noise  which  arises  from 
mechanical  vibrations  and  internal  sources  within  the  optical  and  elec¬ 
tronic  components.  The  noise  appears  to  be  adequately  modelled  by  a 
white  noise  superimposed  on  the  phase  detector  input. 

The  most  important  characteristics  of  the  Figure  Sensor  are 
summarized  in  Table  2.2.1. 
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TABLE  2.2.1 

FIGURE  SENSOR  PARAMETERS 


PARAMETER 

VALUE 

OPERATING  WAVELENGTH 

632.8  nm 

PHASE  DETECTOR 
CARRIER  FREQUENCY 

180  hz 

PATH  DIFFERENCE 
MODULATOR  FREQUENCY 

18  hz 

PATH  DIFFERENCE 
MODULATION  AMPLITUDE 

3164  nm 

PHASE  DETECTOR 

FILTER  TIME  CONSTANT 

0. 159  sec 

ABSOLUTE 

FIGURE  SENSOR 
ACCURACY 

6.32  nm*  (after  calibration ) 

FIGURE  SENSOR 

NOISE  LEVEL 

3.16  nm*  rms 

Perkin  Elmer  performance  goals 
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2.  3  Optical  Figure  Sensor  Model 


A  model  of  the  Figure  Sensor  has  been  developed  which  provides 
a  reasonably  good  approximation  to  the  actual  characteristics  of  the 
Figure  Sensor.  A  block  diagram  of  the  Figure  Sensor  model  is  illus¬ 
trated  in  Fig.  2.  3. 1.  The  model  consists  of  a  Gaussian  white  noise 
generator  which  superimposes  noise  on  the  actual  figure  error 
a  phase  detector  model  which  produces  an  output  ^  equivalent  to  that 
provided  by  the  Figure  Sensor  phase  detector  and  a  first-order  filter 
which  smooths  the  phase  detector  output. 


Let  the  actual  figure  error  at  the  measurement  point  coordinates 
be  designated  If  the  noise  superimposed  on  the  figure  error  is 

0^,  a  suitable  form  for  the  phase  angle  generator  is 


< 


4 


ft 


xa 


4 


(2.3.1) 


where 


ft 


xa 


ft 


xa 


< 


4 


^xf  ^  ^nf 


(2.3.2) 


and  is  the  phase  detector  output, 
only  provide  a  useful  phase  output  for 


Note  that  this  representation  will 
figure  errors  in  the  range 


4 


(2.3.3) 


This  restriction  was  introduced  to 
still  permitting  sufficient  range  to 
ity  problems  which  arise  at  figure 
integer. 


simplify  model  computations  while 
investigate  the  measurement  ambigu- 
errors  of  ( 1  +  2i )  where  i  is  an 
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sensor  model. 


The  noise  input  is  a  Gaussian  white  noise  with  zero  mean 
and  a  standard  deviation 

The  figure  sensor  phase  angle  filter  is  modelled  by  a  first-order 
time  lag.  A  discrete  representation  of  the  filter  was  utilized  to  save 
computer  time  and  improve  accuracy.  The  filter  has  the  form 

0^(i+l)  =  +  Tf0p(i)  (2.3.4) 

0f(l)  =  0  (2.3.5) 

where  ^^(k)  and  3p(k)  are  the  filter  input  and  output  at  time  tj^  and 
*k+l  "  tj^  +  At  (2.3.6) 

where  At  is  the  real  time  control  loop  cycle  time.  The  state  and  input 
transition  parameters  4>  ^  and  7^  are  given  by 

At 

<l>f  =  e  (2.3.7) 

Tf  "  ^  (2.3.8) 

where  t^  is  the  time  constant  of  the  first-order  lag. 

2.  4  Ambiguity  Sensor 

Axial  alignment  of  the  individual  segments  to  assure  that  the 
resultant  figure  lies  on  the  surface  of  a  sphere  centered  on  the  figure 
sensor  decollimator  requires  measurement  of  the  relative  position  of 
adjacent  segment  edges.  While  the  Figure  Sensor  can  provide  accurate 
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figure  measurements  over  a  continuous  surface  it  is  unable  to  resolve 
multiple  half-wavelength  ambiguities  at  the  discontinuity  presented  by 
the  divisions  between  adjacent  segments.  To  eliminate  this  problem 
an  additional  sensing  device  has  been  added  to  the  segmented  mirror 
system. 

The  ambiguity  sensor  is  a  modification  of  the  Michaelson  inter¬ 
ferometer  spectrometer  in  which  the  interferogram  produced  by  varying 

the  relative  length  of  a  two-beam  interferometer  may  be  analyzed  to 

13 

determine  the  spectral  content  of  the  excitation  source.  In  the  case 
of  the  segmented  mirror  the  interferometer  is  mounted  across  the 
adjacent  segment  edges  as  indicated  in  Fig.  2.11.1.  Light  provided  by  a 
tungsten  arc  source  is  allowed  to  impinge  on  the  adjacent  segment 
reflecting  surfaces.  A  Koester  prism  performs  the  functions  of  beam" 
splitting  and  recombination.  The  broad  spectrum  of  the  source  results 
in  a  zero-order  interference  lobe  which  is  readily  recognizable  by  a  peak 
in  intensity.  Signal  processing  is  simplified  by  modulating  the  arc  source 
with  a  mechanical  chopper  permitting  the  use  of  ac  signal  processing 
techniques.  Two  lead  sulphide  detectors  are  used  to  examine  the  inter¬ 
ference  pattern;  one  providing  a  reference  signal  while  the  other 
observes  the  interference  pattern.  The  difference  between  the  detector 
outputs  is  a  measure  of  the  intensity  of  the  interference  lobe. 

2.  5  Ambiguity  Sensor  Model 

Assume  that  an  array  of  measurement  points  x^  have  been  defined 
on  the  surface  of  the  segmented  mirror.  Suppose  that  six  of  the  points 
coincide  with  or  are  near  the  ?ireas  observed  by  the  white  light  inter- 
ferometers.  The  six  point  elements  of  x^  are  conveniently  identified  by 
the  elements  of  a  2  X  3  array  L^.  Thus  ambiguity  sensor  1  observes 
measurement  points  and  forth. 

A  suitable  model  for  the  ith  ambiguity  sensor  may  be  obtained  by 
expanding  the  ambiguity  sensor  output  as  a  function  of  the  difference 
between  the  and  elements  of  x^  in  a  Taylor's  series.  Let  the 

ith  ambiguity  sensor  output  be  ag^.  Then 
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TABLE  2.  5.  1 


AMBIGUITY  SENSOR  MODEL  PARAMETERS 


^sm 

1.  0 

^sd 

4.  0 
>2 
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(2.5.1) 


2 

Si=4m*4d  Nfi,,  ■  **f*p.J 

where  is  the  maximum  output  of  the  sensor  and  is  a  negative 
parameter.  Note  that  this  model  is  only  capable  of  adequately  repre¬ 
senting  the  zero  order  node  which  has  a  width  of  approximately  ±316  nm 
(X./2  at  632.4  nm).  This  is  a  reasonable  restriction  since  errors  in 
excess  of  316  nm  would  result  in  axial  alignment  to  the  peak  of  the 
second  node.  Note  that  this  implies  that  initial  manual  axial  alignment 
must  be  performed  to  at  least  an  accuracy  of  316  nm.  The  values 
selected  for  /?  and  a^.  are  summarized  in  Table  2.5.1. 

oIXl  SI 


2.  6  Mirror  Figure  Actuators 

Modification  of  the  primary  mirror  figure  is  induced  by 
mechanically  perturbing  the  surface  of  the  mirror.  In  the  case  of  the 
deformable  mirror  figure,  modification  is  produced  by  an  array  of 
controllable  loads  which  elastically  deform  the  mirror  structure . 

The  loads  act  virtually  parallel  to  the  optical  axis.  The  segmented 
active  mirror,  on  the  other  hand,  utilizes  mechanical  displacement 
of  the  individual  segments  to  improve  the  overall  mirror  figure. 

2.  7  Force  Actuators 


A  functional  block  diagram  of  the  force  actuator  is  shown  in 

Fig.  2.7.1.  The  actuator  servo  accepts  an  angular  velocity  command 

from  the  actuator  digital  to  analog  converter  channel.  The  commanded 

velocity  modulates  a  400-Hz  signal  to  produce  a  velocity  signal  - 

The  transfer  function  relating  the  rms  modulator  output  to  the  dc  input 

signal  is  assumed  to  be  a  constant  The  output  of  the  modulator  is 

compared  with  a  corresponding  400-Hz  signal  co  ^  which  is  proportional 

a 

in  amplitude  to  the  angular  velocity  w  of  the  servo-motor  shaft  output 

a 

shaft.  The  servo  motor  produces  a  torque  which  is  proportional  to 
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ACTUATOR  VELOCITY 
CONTROL  SYSTEM 
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Fig.  2,  7.  1  Force  actuator  block  diagram. 


I 
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Fig.  2,  8.  1  Position  actuator  block  diagram. 


times  the  amplitude  of  the  error  signal  e^  ,  The  direction  of  the  torque 
Tm  depends  upon  whether  or  not  e  ^  is  in-or-out-of-phase  with  a 
400-Hz  reference  signal.  The  torque  accelerates  the  equivalent  motor 
armature  and  load  inertia  j  subject  to  the  damping  torque  d  w  ,  The 
angular  rotation  of  the  motor  shaft  produces  a  reduced  rotation  at  the 
output  of  a  , gear  reduction.  Conversion  to  linear  motion  is  achieved  using 
a  lead  screw.  The  linear  movement  of  the  threaded  collar  on  the  screw 
compresses  a  spring  which  provides  the  desired  actuator  output  force. 

A  linear  potentiometer  slider  is  connected  to  the  collar  to  provide  a  posi¬ 
tion  feedback  signal  which  is  proportional  to  the  actuator  output  force. 

2 . 8  Position  Actuators 


The  position  actuators  are  in  some  respects  similar  in  design 
to  the  force  actuators.  A  motor-tachometer  drives  a  lead  screw 
through  a  gear  reduction.  A  threaded  collar  converts  the  rotation 
of  the  screw  to  linear  motion  compressing  a  soft  spring.  The  change 
in  load  produced  by  the  fine  spring  alters  the  length  of  a  very  stiff 
spring.  The  change  in  length  of  the  stiff  spring  produces  a  corres¬ 
ponding  displacement  in  the  mirror  segment  through  a  kinematic 
support  point.  The  main  difference  stems  from  the  absence  of  an 
actuator  output  position  feedback  sensor,  a  change  which  alters  the 
character  of  the  control  command  required  to  drive  the  actuators. 
Actuator  position  control  is  achieved  by  commanding  an  output  velocity 
pulse  whose  total  area  equals  that  of  the  desired  change  in  position. 
The  commanded  velocity  drives  a  velocity  control  loop  which  is  closed 
in  the  Sigma  2.  A  block  of  the  segment  position  actuator  is  shown  in 
Fig.  2.  8. 1. 

2 .  9  Actuator  Models 


The  actuator  control  systems  are  characterized  by  a  fast  inner 
loop  which  controls  the  angular  velocity  of  the  tachometer- motor  and 
a  relatively  slow  outer  loop  which  controls  the  position  of  the  threaded 
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lead  screw  collar.  As  a  result  it  was  decided  to  model  the  transfer 
function  between  the  desired,  m^,  and  actual,  m^,  actuator  outputs 
by  a  simple  first-order  system.  For  the  ith  actuator 


The  time  constants  t^.  i  =  1,  n^  are  read  in  as  elements  of  the  array 
TACTV.  In  order  to  eliminate  the  need  for  numerical  integration  the 
actuator  dynamics  were  represented  by  the  equivalent  discrete  equation 

m  .(i+l)  =  tfl.m  .(i)  +  Y.m  (i) 
mi  *ai  mi  '  "^ai  ci '  '  U.a.-i; 

where  m  .  (k)  and  m  .  (k)  are  the  values  of  m  .  and  m  .  at  t,  and 

mi  Cl  k 

\+l  "  (2.9.3) 

where  At  is  the  actuator  control  system  cycle  time.  The  state  and 
input  transition  parameters  yj  .  and  y  .  satisfy  the  equations 

0-1  3.1 

_  M. 

t  . 

Q  1 

^  ®  (2.9.4) 

Tai  =  1  -  >Pai  (2.9.5) 

where  t^^  is  the  time  constant  associated  with  the  ith  actuator. 
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2.10  Deformable  Mirror  Model 


2.10.1  Introduction 


A  linear  model  of  the  deformable  mirror  is  desired  which 
relates  the  displacements  sensed  by  the  figure  sensor  at  an  array 
of  measurement  points  to  the  loads  m^  applied  parallel  to  the  optical 
axis  by  an  array  of  force  actuators.  The  linear  transformation  is 
conveniently  expressed  in  the  form 

x.=  Am  (2.10.1) 

f  m 

where  A  is  an  nX  n  matrix. 

A  linear  model  of  the  form  (2.10.1)  is  conveniently  generated  by 
representing  the  mirror  by  an  approximate  structural  model  consisting 
of  a  large  number  of  finite  elements  as  indicated  in  Fig.  2.10.1.  The 
node  points  (joints)  of  the  finite  element  representation  are  selected  to 
coincide  with  the  actuator  and  measurement  point  locations.  (While  the 
actuator  locations  are  fixed  in  this  particular  example  the  measurement 
points  may  be  reassigned  to  coincide  with  a  desirable  set  of  nodes.) 

The  ith  column  of  the  matrix  A  is  generated  by  applying  a  unit 
load  at  actuator  location  i  and  calculating  the  resulting  deformations  at 
the  measurement  locations.  The  finite  element  algorithm  provides 
deformations  parallel  and  normal  to  the  optical  axis.  The  normal 
deflections  may  generally  be  neglected  for  a  thin  shallow  shell. 

The  figure  sensor  detects  differences  in  the  length  of  radii  joining 
the  measurement  point  and  a  reference  point  to  the  center  of  curvature  of 
the  spherical  wavefronts  emerging  from  the  decollimator.  In  the  case  of 
the  deformable  mirror  the  reference  point  is  normally  selected  to  coincide 
with  a  point  on  the  mirror^ s  surface  corresponding  to  a  rigid  support 
location.  As  a  result  the  reference  radius  may  be  considered  constant  and 
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the  measurement  provided  by  the  figure  sensor  is  the  actual  change  in  length 
of  the  measurement  point  radius. 

Thus  if  the  computed  deflection  parallel  to  the  optical  axis  is 
at  the  kth  measurement  point  at  a  distance  d^^  from  the  optical  axis  the 
deflection  sensed  by  the  figure  sensor  is 

^fk  “  ^fk  '“'d  (2.10.  2) 

where 

-1  ^k 

=  sin  (2.10.3) 

1 5 

The  data  generated  by  Rackley  and  the  models  presented  in  this  section 
do  not  consider  this  transformation  and  (2.10.1)  and  (2. 10.  3)  should  be 
applied  to  the  data  presented  in  this  section  in  order  to  achieve  a  more 
exact  linear  model  for  simulation. 

A  number  of  computations  were  performed  to  obtain  the 
flexibility  matrix  for  the  20"  NASA/MSFC  active  mirror  which  is 
physically  described  in  Figs.  2. 10. 1  and  2. 10.2.  The  objective  here 
was  to  determine  the  differences,  if  any,  between  results  obtained  by 
MSFC  using  the  NASTRAN  system  and  the  results  of  analysis  by  the 
ICES-STRUDL  11  finite  element  analyzer. 

The  finite  element  approach  is  a  very  powerful  numerical 
approximation  technique,  but  at  the  same  time  the  results  can  be 
quite  sensitive  to  the  way  in  which  the  element  model  is  defined. 

Since  some  of  the  mirror  control  algorithms  are  highly  dependent  on 
the  accuracy  of  the  flexibility  matrix,  it  is  of  great  interest  to 
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.  10.  1  Finite  element  deformable  mirror  model, 


W  LX  Vi 


Fig.  2,  10,2  Finite  element  deformable  mirror  model. 


measure  the  possible  range  of  errors  that  may  be  expected  in  the  use 
of  the  finite  element  technique  here. 

2. 10.  2  Approach 


The  ideal  model  for  finite  element  shell  analysis  involves  the 
use  of  individually  curved  elements  where  the  bending  and  stretching 
actions  are  coupled.  Such  elements  are  still,  however,  in  the  highly 
experimental  stage  and  are  unavailable  in  any  of  the  more  common 
large-scale  analyzers,  including  both  NASTRAN  and  ICES-STRUDL  II. 
The  next  best  approach  is  to  use  flat  plates  where  the  bending  and 
stretching  are  uncoupled,  but  as  a  result,  more  individual  elements 
should  be  used.  This  latter  approach  was  the  one  employed  by 
MIT/CSDL  as  well  as  NASA/MSFC.^^ 

The  model  chosen  for  the  studies  was  one  using  primarily 

triangular  elements  in  a  configuration  previously  tested  against 

limiting  closed-form  solutions  and  found  to  perform  quite  satisfac- 
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torily.  "CPT"  elements  were  chosen  for  the  bending  triangles, 
and  "PBQl"  for  the  bending  quadrilaterals.  The  latter  element  is  made 
up  of  four  "CPT's".  For  the  stretching  components  "CSTG"  and  "PSQl" 
elements  were  employed.  All  of  these  elements  are  identical  in  function 
to  the  "CQUAD2"  and  "CTRIA2"  elements  found  in  the  NASTRAN  model. 
The  number  of  elements  used  for  the  STRUDL  study  was  less  than  with 
NASTRAN,  but  previous  studies  with  the  STRUDL  model  has  shown 
that  the  number  was  already  adequate. 

The  mirror  was  analyzed  first  as  a  flat  plate  with  bending 
action  only,  then  the  curvature  and  the  stretching  component  were 
included  to  represent  the  actual  shell.  As  significant  differences 
appeared  between  the  STRUDL  and  NASTRAN  shell  results,  the 
element  modelling  in  NASTRAN  (as  per  NASA/MSFC  memo  referenced 
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above)  was  tested  using  the  STRUDL  system  and  elements.  Due  to 
funding  limitations,  this  could  be  done  for  the  bending  case  only. 

2. 10.  3  Results 


Table  2. 10. 1  summarizes  the  STRUDL  finite  element  bending 
behavior  results  for  the  flexibility  matrix.  The  complete  matrix  was 
recorded  to  simplify  error  detection.  While  there  are  a  total  of  six¬ 
teen  actuators,,  there  are  only  five  independent  ones,  the  behavior  of 
the  rest  may  be  found  by  various  symmetry  conditions.  In  the  STRUDL 
analysis,  all  sixteen  were  analyzed  so  that  any  unsymmetries  in  the 
modelling  that  had  occurred  by  chance  error  could  be  immediately 
detected.  The  results  in  Table  2. 10. 1  are  symmetrical  to  about  an 
average  of  0.  5%. 

Table  2. 10.2  summarizes  the  results  of  the  shallow  shell 
representation  of  the  mirror.  Again,  good  symmetry  has  been 
attained,  but  the  differences  between  the  plate  and  the  shell  are 
rather  striking.  In  general,  the  shell  is  stiffer,  with  the  typical 
decrease  in  stiffness  near  a  free  edge  which  affects  shells  more  than 
plates.  Subsequently,  the  differences  at  the  center  for  the  plate  and 
shell  are  more  noticeable  than  at  the  edges.  The  average  difference 
between  the  plate  and  shell  deformations  is  about  60%. 

Table  2. 10.  3  summarizes  the  results  of  the  NASTRAN  model 
using  STRUDL  elements.  Symmetry  is  very  good  again,  and  differences 
between  the  comparable  Tables  2,  10. 1  and  2. 10.  3  are  in  the  range  of 
one  to  three  percent.  This  is  approaching  the  best  numerical  range 
that  might  be  expected  using  finite  element  methods.  Modelling 
configuration  therefore  does  not  seem  to  contribute  significant  error 
levels. 
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Table  2, 10.4  is  the  NASTRAN  results  obtained  by  NASA/MSFC. 
This  matrix  should  be  identical  to  that  in  Table  2. 10.2,  but  considerable 
differences  are  discernable,  to  a  degree  not  covered  by  numerical 
errors.  Some  matrix  components  in  Table  2. 10.4  are  easily  twice 
those  in  Table  2.  10.  2,  with  the  mean  deviation  in  the  order  of  about 
70%.  Table  2. 10.4  appears  to  correlate  much  better  with  Tables 
2. 10.  1  and  2.  10.  3  which  represent  the  bending  behavior  alone,  usually 
within  15  to  20%.  It  is  possible  that  if  the  STRUDL  shell  study  had 
been  performed  with  the  stretching  component  suppressed,  but  with  a 
z  component  (as  well  as  x  and  y)  for  the  nodes,  results  in  Tables 
2.  10.  1,  2.  10.  3  and  2.  10.  4  might  all  be  very  close  indeed. 

A  copy  of  the  NASTRAN  input  used  to  generate  Table  2. 10.4 
was  obtained  and  examined,  but  no  errors  could  be  discovered  that 
could  have  caused  this.  We  are  less  familiar  with  the  subtleties  of 
NASTRAN,  however,  than  with  STRUDL.  The  possibility  remains 
open,  therefore,  of  a  fundamental  ’’bug’’  inside  the  NASTRAN  system 
that  prevents  stretching  action  from  occurring  in  this  example. 

A  final  confirming  study  should  be  performed,  that  of  testing 
the  NASTRAN  shell  model  on  STRUDL  and  the  STRUDL  models  on 
NASTRAN,  but  because  of  funding  limitations,  this  has  not  been  done 
here. 

2.10.4  Conclusions 

Based  on  these  results,  it  is  obvious  that  rather  large  errors 
of  presently  unknown  origin  can  creep  into  the  finite-element  modelling 
of  shallow  shells.  These  are  especially  difficult  to  detect  if  no  closed- 
form  solutions  are  available  for  reference.  The  configurational  model¬ 
ling  on  the  other  hand  appeared  to  have  relatively  small  effect,  but 
the  reliability  of  the  results  in  absolute  terms  is  in  question. 
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If  it  is  anticipated  that  the  control  algorithms  are  going  to  be 
sensitive  to  errors  in  the  flexibility  matrix,  thorough,  confirming 
studies  to  establish  the  reliability  of  the  structural  analysis  results 
will  be  absolutely  mandatory. 

2.11  Segmented  Mirror  Model 

A  linearized  model  of  the  segmented  mirror  relating  the  figure 
error  measurements  x^  to  the  displacement  actuator  outputs  m^  in  the 
form 


X.  =  Am^ 
I  m 


(2.11.1) 


was  desired  where  A  is  an  n  by  n^,  measurement- position  matrix.  If  the 

actuators  associated  with  each  segment  are  grouped  in  the  form  m^^^,  . 

(§\  1  \ 
m^  and  the  corresponding  surface  deflections  are  identified  as  x^'  \ 

Xj^^\  .  it  is  apparent  that  (2.11.1)  may  be  partitioned  in  the  form: 
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The  linear  model  for  the  kth  segment,  for  example,  relates  the  kth  mirror 
segment  measurements  provided  by  the  figure  sensor  at  n^^^  measurement 

points  on  the  surface  of  the  kth  segment  to  the  displacement  actuations  m 

(k)  fkT  ^ 

at  n^  segment  actuator  locations.  The  value  of  n^'  '  is  three,  providing 

three  degrees  of  freedom  for  each  segment.  ’ 


The  figure  sensor  detects  the  difference  in  the  length  of  radii 
joining  the  figure  sensor  decollimator  to  the  desired  measurement  point 
and  a  fixed  reference  location.  Since  the  entire  segment  is  capable  of  motion 

’  Note  that  n^  ’  cannot  be  greater  than  three  if  segment  deformation  is  to 
be  avoided. 
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the  reference  radius  cannot  be  considered  constant,  as  in  the  case  of  the 
deformable  mirror;  and  the  effects  of  perturbations  in  the  reference  radius 
must  be  considered. 

Consider  the  kth  segment  shown  in  Fig.  2.11.1.  In  order  to 
simplify  the  analysis  it  is  assumed  that  the  points  Pj,  P2  and  p^  lie  on  a 
sphere  centered  on  the  figure  sensor  decollimator.  This  condition  is 
satisfied  by  the  initial  tilt  alignment  control  system. 


Suppose  that  the  radii  joining  the  measurement  point  and 

{k)  (k) 

the  reference  point  to  the  decollimator  are  identified  by  and 

respectively.  Suppose  that  a  perturbation  is  introduced  in  the  jth 

displacement  actuator.  The  perturbation  in  the  ith  figure  error  measure¬ 
ment  is 


=  Ar/^^  -  AR 
fi  1  r 


(2.11.3) 


(k) 

The  elements  of  may  then  be  obtained  by  passing  to  the  limit  “•  0- 


^1 


(k)  _ 


limit 
(k) 


Ar/^^  -  AR 
1  r 


Am 


0  Am 


IFT 


m] 


(2. 11.4) 


The  perturbations  AR^^^^  and  AR^^^^  may  be  computed  by  considering  the 
segment  rotation  about  axes  joining  the  segment  actuator  locations. 
Translation  in  this  philosophy  are  the  result  of  the  superposition  of  rota¬ 
tional  effects.  Since  the  analysis  procedures  involved  in  computing 

AR.^^^  and  AR  are  identical,  it  is  sufficient  to  illustrate  the  procedure 
1  ^  (k) 

by  generating  A  R. 


Consider  the  kth  segment  illustrated  in  Fig.  2.11.1  and  suppose 

(k) 

that  j  =  1.  The  perturbation  Am^^  will  cause  a  rotation  about  points 

p  and  p„.  Consider  a  point  xl^^’  on  the  surface  of  the  mirror  which  is 

d  distant  from  p_p„.  If  d,  is  the  distance  from  the  actuator  m  .  to 
3,  Z  o  ^  ( k )  ^ 

PgPg,  the  change  in  radius  R/  : 
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1 


(2.11.5) 


AR. 


(k)  _ 


Am 


(k) 


i  dj^  cos  cos  Yg  ml 


(k ) 

if  ^"^ml  sufficiently  small.  The  angles  7^  and  are  given  by  the 

expressions: 


7,  =  sin 


1  d 
.•„“1  a 


2R 


(2.11.6) 


.  -1  ^c 
72  =  sin 


(2.11.7) 


where  d  is  the  distance  between  and  a  plane  perpendicular  to  p„p 


containing  the  center  of  curvature  of  the  mirror.  Computation  of  AR 
leads  to  an  expression  similar  to  (2.11.5). 


2*^3 

(k) 


AR 


(k)  ^e 


COS  7^  cos  7^ 


(2.11.8) 


where  d^,  d^,  7^  and  7^  correspond  to  d^,  dj^,  7^  and  respectively. 
Expressions  (2.11.5)  and  (2.11.8)  may  then  be  substituted  in  (2.11.4)  to 
yield . 


a.  1  .fe.  1 

il  d^^  cos  7^  cos  72  dj  cos  7^  cos  y^ 

(2.11.9) 

the  desired  element  of  A  similar  procedure  may  be  used  to  construct 

the  elements  relating  measurement  errors  to  actuator  perturbations  at 
locations  pg  and  p^. 

The  computations  outlined  above  are  easily  mechanized.  Note 
that  the  effect  of  neglecting  7^^  to  7^  is  quite  small  for  segments  of  aperture 
less  than  f/4.  The  effect  of  neglecting  the  curvature  of  the  mirror  in  the  d  , 
dg  computation  is  also  quite  small.  Thus  it  is  probably  possible  to  construct 
an  adequate  model  of  the  segmented  mirror  from  the  projected  x  -  y 
coordinates  obtained  from  the  segmented  mirror  drawings. 
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CHAPTER  3 


EXPERIMENTAL  ACTIVE  MIRROR 
FIGURE  CONTROL  ALGORITHMS 


3. 1  Introduction 

Figure  control  systems  have  been  developed  by  previous 
investigators  for  two  types  of  primary  mirror  structures  — 
segmented  mirrors  and  deformable  mirrors.  Figure  control  in  the 
former  case  is  achieved  by  translating  and  rotating  rigid  individual 
mirror  segments.  Deformable  mirror  figure  control  is  realized 
by  elastically  deforming  the  reflecting  surface  of  the  mirror  to 
improve  figure  accuracy. 

The  surface  accuracy  achieved  by  figure  control  systems  is 
determined  by  the  number  and  arrangement  of  the  actuators  and  the 
measurement  points,  the  accuracy  of  the  figure  sensor,  and  the  type 
of  control  algorithm. 

Segmented  mirror  accuracy  is  ultimately  limited  by  the  figure 
accuracy  of  the  individual  segments  which  can  be  quite  high  as  a 
result  of  the  relatively  small  size  of  each  segment.  The  develop¬ 
ment  of  large  active  segmented  mirrors  is  hampered,  however,  by 
the  problems  associated  with  the  accurate  fabrication  of  off-axis 
surfaces  of  rotation. 

Active  deformable  mirror  figure  accuracy  is  ultimately 
limited  by  the  number  and  the  geometric  arrangement  of  the 
figure  actuators. 
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The  goal  of  current  figure  control  systems  is  to  achieve  an 
rms  figure  accuracy  of  30  nm  (wX  /20  at  632.  8  nm)  which  would 
provide  diffraction-limited  performance  throughout  most  of  the 
visible  spectrum. 

Two  classes  of  figure  control  algorithms  have  emerged.  The 

first  treats  the  mirror  as  a  static  body  —  depending  on  inherent 

mechanical  damping  to  eliminate  vibrations  induced  by  disturbances 

and  actuator  motion.  The  static  representation  has  been  used  by 

1  6  7  13 

previous  investigators  '  ’  ’  to  control  deformable  and  segmented 

mirrors  and  is  probably  an  adequate  approach  for  the  space  telescope 

as  a  result  of  the  low  frequencies  associated  with  the  disturbances 

acting  on  the  mirror.  Theoretical  studies  have  also  been  performed 

to  develop  algorithms  which  provide  active  control  of  the  dynamical 

14 

bending  modes  of  the  mirror.  The  modal  control  approach  places 
severe  bandwidth  requirements  on  the  control  system  and  complicates 
the  problem  of  actuator  placement.  The  following  systems  describe 
algorithms  which  have  been  developed  at  MIT/DL  to  control  the 
mirror  figure  in  the  static  sense. 

3.2  Deformable  Mirror  Control  Laws 


Suppose  that  the  error  between  that  actual  figure  and  the 
ideal  figure  is  evaluated  on  the  surface  of  the  mirror  at  n  discrete 
points.  The  errors  may  be  conveniently  expressed  as  elements  of 
an  array  x^. 

The  figure  of  the  primary  mirror  is  controlled  by  elastic 

deformation  achieved  by  applying  an  array  of  n  loads  m  to  the 

r  m 

rear  of  the  mirror  which  is  rigidly  supported  at  three  points.  If 
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the  initial  figure  errors  (m  =  0)  at  the  n  measurement  points  are 

m 

associated  with  the  array  x^,  the  net  figure  errors  at  the  n  points 
may  be  written: 


x„  =  X  ,  +  A  m 
f  d  r  m 


(3.2.1) 


where  A  is  a  reduced  deformation-force  matrix, 
r 

In  order  to  develop  a  control  strategy  it  is  useful  to  define  a 
performance  index,  A  useful  index  is  the  unbiased  root  mean  square 
figure  error: 


J 

m 


1 

n 


XfXf 


11/2 


(3.2.2) 


This  performance  index  is  minimized  if  the  control  force  m 
the  form: 


m 


is  of 


m  =  - 
m 


-,-1 


A'A 
r  r 


A'x, 
r  d 


(3.2.3) 


Such  a  control  is  the  linear  optimal  control  for  the  system  (3.2.1) 
with  the  performance  index  (3.2.2).  The  resulting  figure  is  a  best 
least  squares  fit  to  the  ideal  reflecting  surface.  Note  that  the  con¬ 
trol  in  (3.  2.  3)  requires  the  measurement  of  n  errors  (n  >  n  )  in  order 

r 

to  compute  the  n^  figure  controls. 

A  special  case  of  (3.  2. 3)  occurs  if  n  =  n  in  which  case  the 

r 

figure  errors  at  all  n^  locations  may  be  reduced  to  zero.  The 


37 


required  control  in  this  case  is: 


m  rr  r  d 


(3.2.4) 


where  is  a  reduced  identity  matrix  which  maps  the  n  figure 
measurements  into  n^  measurements.  This  control  strategy  has 
been  used  by  other  investigators  and  is  referred  to  here  as  the 
simplified  linear  control. 

The  above  controls  are  special  cases  of  the  general  linear 
control  law  of  the  form: 


m 


m 


•K 

g  d 


(3.2.  5) 


The  linear  optimal  and  simplified  linear  gain  matrices  are^differentiated 
by  subscripts:  1 


(3.2.6) 


K,  = 

i  rr  r 


(3.2.7) 


3.  3  Segmented  Mirror  Control  Laws 


Segmented  mirror  figure  control  is  achieved  by  translating  and 
rotating  each  segment  by  means  of  three  position  actuators.  It  is 
convenient  to  represent  the  position  controls  as  elements  of  an  array 
m  in  which  case  the  figure  error  x„  may  be  written: 


X.  =  X ,  +  A  m 
f  d  r  m 


(3.3.1) 
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where  x ,  is  the  initial  figure  error  and  A  is  a  linear  transformation 
a  r 

relating  the  actuator  position  changes  to  a  corresponding  change  in  the 
monitored  figure  errors. 


In  light  of  the  similarity  between  equations  (3.  2, 1)  and  (3.  3. 1) 
it  is  apparent  that  identical  control  laws  are  applicable  to  the  seg¬ 
mented  and  deformable  mirrors.  Thus  the  simplified  linear  K  and 
linear  optimal  control  gain  matrices  for  the  segmented  system  are: 


K  =  \a'  a1"^  A' 
o  r  rj  r 


K,  =  A“^ 
I  rr 


(3. 3.2) 

(3.3.3) 


where  A^^  is  the  doubly  reduced  model  matrix  for  the  segmented 


mirror. 


3.4  Discrete  Control  Algorithm  for  Mirror  Figure  Control 


Sections  3.2  and  3.3  have  described  the  mathematical 

properties  of  the  figure  control  laws.  In  order  to  achieve  this 

control  it  is  necessary  to  develop  a  discrete  algorithm  for  digital 

computer  realization.  A  simplified  block  diagram  of  the  digital 

figure  control  system  is  shown  in  Fig.  3.4.1.  A  complete  set  of 

figure  error  data  is  sampled  every  t  seconds.  The  figure  control 

s 

algorithm  operates  on  the  figure  error  to  produce  a  set  of  desired 
actuator  outputs  m^.  The  actuator  commands  m^  provide  inputs  to 
a  digital  figure  actuator  control  system  with  a  cycle  time  At.  The 
figure  control  computation  cycle  time  t  is  an  integral  multiple  of 

S 

At.  The  actuator  control  system  operates  to  assure  that  outputs 

m  are  approximately  equal  to  the  actuator  commands  m  .  This 
m  c 


39 


OBSERVED  FIGURE 
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implementation  of  the  EAM  figure  control  is  classified  as  a  multirate 
sampled  data  system. 

The  time  interval  t  between  successive  computations  of  m 
s  c 

is  determined  by  a  number  of  considerations  including  the  response 
time  of  the  figure  sensor  and  the  dynamic  response  characteristics 
of  the  mirror  structure  and  figure  actuators. 

The  figure  sensor  currently  incorporated  in  the  EAM  is  a 
serial  measuring  device  inasmuch  as  the  figure  error  can  only  be 
measured  one  point  at  a  time.  '  Limitations  in  the  design  of  the 
piezoelectric  interferometer  path  difference  modulator  and  the 
phase  detector  filter  time  constant  limit  the  minimum  observation 
time  at  each  measurement  point,  as  indicated  in  Table  2.2. 1,  to 
approximately  0.2  seconds. 

Operation  of  the  figure  actuators  excites  a  damped  vibration 
in  the  mirror  structure.  As  a  result  of  the  serial  nature  of  the 
figure  sensor  it  is  necessary  to  wait  until  the  vibration  has  decayed 
below  an  acceptable  level  before  measuring  the  figure  error. 

The  dynamic  response  time  of  the  actuators  is  determined  by 
the  bandwidth  of  the  actuator  control  systems.  The  digital  character 
of  the  actuator  control  systems  will  mean  that  the  choice  of  At  will 
play  a  strong  role  in  determining  minimum  response  time. 

The  EAM  digital  control  system  accounts  for  the  dynamical 
characteristics  of  the  EAM  components  by  realizing  the  operation 

*  Other  versions  of  the  figure  sensor  utilize  a  photodiode  array  to 
permit  parallel  processing  of  figure  error  data. 
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sequence  shown  in  Fig.  3.4.2.  A  control  cycle  is  initiated  by  a 

period  n^^.^  cycles  long  during  which  the  actuators  respond  to  the 

actuator  commands.  The  number,  of  cycles  n  should  be  large 

wait  ^ 

enough  to  permit  the  actuators  to  reach  an  essentially  steady  state.  At 
the  end  of  the  actuator  control  interval  the  actuator  outputs  are 
frozen,  and  the  image  dissector  is  positioned  to  the  first  measure¬ 
ment  location.  The  measurement  sequence  consists  of  positioning 

the  image  dissector,  a  pause  of  n  cycles  during  which  transients 

pos 

in  the  phase  detector  output  are  allowed  to  settle  followed  by  a 

sequence  of  n  phase  detector  filter  output  measurements  at 
meas 

intervals  of  n  .  .  cycles.  The  position,  n  cyclp  wait,  n  wait 
mint  pos  mint 

measure,  n^.^^  wait  . . .  sequence  is  repeated  at  each  of  the  n 
measurement  points.  At  the  completion  of  measurements  the  figure 
sensor  data  are  processed  to  reduce  noise  and  eliminate  ambiguities 
and  a  new  set  of  actuator  commands  m^  computed.  The  actuators 
are  then  activated  to  initiate  another  control  cycle. 

The  discrete  figure  control  algorithm  is  currently  implemented 
in  the  form: 


m^(i+  1  )  ■  m^(i)+  3j^Kxjp(i)  (3.4.1) 


where  m  (k)  and  x.  (k)  are  the  values  of  actuator  commands  m  and 
c  fp  c 

the  processed  figure  error  measurements  x,  at  time  t,  where: 

tp  k 


\  +  1  ■  *k  ^s 


(3.4.2) 


A  description  of  the  figure  sensor  filter  is  given  in  Section  3.  5. 
The  scalar  factor  is  given  by  the  relation: 
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igure  control  system  timing  diagram 


J3,  »  0  t 


(3.4.3) 


where  B  is  a  scalar  constant.  This  choice  for  0  assures  that  the 
g  ,  g 

dynamic  response  characteristics  of  the  control  system  will  be 
relatively  independent  of  changes  in  t^. 


The  feedback  gain  matrix  K  may  be  K  ,  K  or  a  general  gain 

O  Jo 

matrix  K^.  If  0j^  =  -1  and  ni^(O)  =  0,  the  computed  value  m^  will  equal 
the  desired  control: 


m  (1)  =  -K  X, 
c  g  d 


(3.4.4) 


after  one  interation.  Values  of  -  1  <  0^^  <  0  result  in  a  solution  which 
slowly  converges  to  the  desired  control. 

3.  5  Figure  Sensor  Data  Processing  Algorithm 

Ambiguities  in  figure  measurement  which  occur  whenever  the 
magnitude  of  the  figure  error  equals  1  +  2i]  where  i  is  an  integer 
limit  the  effective  measurement  range  of  the  figure  sensor  to  ±j. 
Since  the  initial  figure  magnitude  could  easily  exceed  ,  a  digital 
signal  processor  was  developed  which  would  extend  the  effective 
operating  range.  The  resulting  algorithm  reduces  sensor  noise  in 
addition  to  eliminating  measurement  ambiguity. 

The  inspiration  behind  the  figure  sensor  filter  design  may  be 
obtained  by  observing  certain  statistics  associated  with  the  figure 
sensor  filter  outputs.  Suppose  that  a  sequence  of  points  is  defined 
on  the  surface  of  the  mirror  in  such  a  way  that  the  error  at  each 


If  aspheric  figure  control  is  desired,  the  difference  between  the 
reference  sphere  and  the  desired  figure  can  be  many  wavelengths. 
Measurement  of  an  aspheric  surface  may  be  accomplished  using 
the  technique  presented  here  or  an  optical  data  processing 
procedure  such  as  the  moire'’  fringe  technique. 
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point  satifies  the  relationship: 


x„.  =  iA.  (3.5.1) 

11  f 

where  is  a  positive  number  That  is,  the  error  at  the  points 

increases  in  a  linear  fashion.  Such  a  situation  may  be  achieved,  in 
practice,  by  defining  a  set  of  measurement  points  equidistantly  spaced  or 
on  a  straight  line  and  then  slightly  tilting  the  mirror  about  an  axis  per¬ 
pendicular  to  the  optical  axis  and  the  straight  line.  If  the  figure  con¬ 
trol  system  is  required  to  perform  a  sequence  of  measurements  on 
the  points  (3.  5. 1),  the  outputs  of  the  figure  sensor  as  a  function  of 
time  will  appear  as  shown  in  Fig.  3.  5. 1  which  delineates  the  figure 
error  input  13^^,  figure  sensor  noise  0^,  phase  detector  input 
output  /3p  filtered  output  and  rms  value  calculated  at  each 

measurement  location  where: 


(3.5.2) 


and  is  the  ith  filter  output  sample  at  each  position.  Note  that 
^mrf  whenever  a  switching  boundary  (/3^j  =  ^(1  +  2k);  k  an 

integer)  is  approached.  This  property  is  used  advantageously  to  detect 
an  ambiguous  measurement  range  by  defining  a  decision  threshold  3^^ 


ACTUAL  FIGURE  ERROR  INPUT 


P  xf 


(3  nf 


3. 


3f 


3 


mrf 


TIME 


Fig.  3.  5. 1  Typical  figure  sensor  simulation  results. 
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A  flow  diagram  of  the  figure  sensor  data  processing  algorithm 
is  shown  in  Fig.  3.5.2.  This  algorithm  is  valid  for  measurement 
errors  in  the  range  |/3^g^l  <-^  where  X  is  the  laser  wavelength 
(632.4  nm).  An  extension  in  range  is  easily  accomplished  by  modi¬ 
fying  the  switching  boundary  and  ambiguity  factor  computations. 

The  limited  range  was  adopted  to  simplify  coding  and  to  save  compu¬ 
tation  time  during  simulation. 

The  initial  measurement  point  should  be  selected  so  that 
<  Subsequent  computations  provide  values  of  the  processed 
figure  error  relative  to  the  first  location. 

^mrf  ^  measurement  point,  the  figure  error  is 

calculated  by  adding  the  mean  value  )3  ,  of  the  n  measurements 

mi  meas 

to  the  ambiguity  factor  0^^  which  is  initially  zero.  The  computed 
value  x^p.  is  stored  in  for  future  reference.  The  nearest  switching 
boundary  is  also  calculated  for  use  when  an  ambiguous  measurement 
is  perceived. 

If  the  rms  value  of  the  measurements  exceeds  0^^  at  the  ith 

location,  an  ambiguous  measurement  problem  is  identified  and  the 

processed  figure  error  is  calculated  by  linear  extrapolation  about 

the  closest  switching  boundary  The  extrapolation  constant  0^ 

is  read  in  by  the  program.  The  ambiguity  factor  is  calculated  if  the 

value  of  0^j^  has  changed  sign  and  the  magnitude  of  the  product  of  the 

old  value  of  0^^  and  its  current  value  is  greater  than  0^^.  This  test 

prevents  the  generation  of  spurious  ambiguity  factor  values  which 

would  arise  if  0  ,  w  0. 

^mf 
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Sensor  noise  is  reduced  by  the  averaging  process  performed 
during  the  computation  of  If  the  sample  period  is  long  compared 

to  the  figure  sensor  time  constant  and  the  noise  source  is  uncolored, 
the  rms  noise  level  is  reduced  by  the  reciprocal  of  the  square  root 
of  n 

meas 

3.6  Force  Actuator  Control  System 


A  block  diagram  of  the  ith  force  actuator  control  algorithm  is 

shown  in  Fig.  3.6. 1.  The  actuator  output  force  m  is  regulated  by 

controlling  the  extension  of  a  spring.  The  sensed  ith  spring  extension 

m  is  compared  with  the  desired  spring  extension  m  and  the  re- 
mi  ^ 

suiting  error  signal  processed  to  provide  the  motor  velocity  command 

(j  .  Proportional  plus  integral  compensation  is  used  to  eliminate 

steady  state  position  errors.  The  position  command  Is  obtained 

by  operating  on  m^^  which  is  calculated  by  the  discrete  control  law 

(3.4.1) 


m  =  m  .m  .  (3.6. 1) 

ci  Cl  gi 

where  m  is  an  input  vector  of  scale  factors, 
g 

3.  7  Position  Actuator  Control  System 

The  position  actuator  control  system  is  shown  diagramatically 
in  Fig.  3.7.1.  The  actuator  position  command  is  scaled  using 
equation  (3.  6. 1)  to  produce  m^.  The  pulse  modulator  produces  a 
pulse  every  time  a  new  control  is  calculated.  The  area  of  the  pulse 
is  selected  so  that  the  resulting  change  in  actuator  position  equals 
the  desired  change  in  position 
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(3.7.1) 


6m  .(i)  =  m  .(i) 
Cl  Cl 


thus  8  and  t  must  be  selected  so  that 


NK  ,K  K 
Ad  Sj  Sg 

K. 


0  t  =  6m  .  m  . 

W  U  Cl  gi 


(3,7.2) 


Further  constraints  are  imposed  by  requiring  t  to  be  an  integral 

u 

multiple  of  At; 


t  =  n  At 
10  to 


(3.7.3) 


With  this  restriction  3,,  becomes: 

SJJ 


6m  .m  .K^ 

8  =  g"  ^ 


to  K_  n  At 


®1  ®2  “ 


(3.7.4) 


If  m  .is  selected  so  that: 

gi 


NK  K  K 
U  S2 


m  .  = - — 

gi  K, 


(3,7.5) 


the  computation  for  becomes: 


6m 


ft.,  = 


Cl 


u)  n  At 
to 


(3.7.6) 
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is  read  in  as  part  of  the  input  data  and  must  satisfy  the 
relationship: 


n  ^  n 
to 


wait 


(3.7.7) 


Small  values  of  n  lead  to  large  commanded  rates, 
to 

Note  that  this  implementation  does  not  include  the  motor 

velocity  feedback  loop  signal  processing  filter  included  in  the 

13 

original  position  actuator  control  system.  This  omission  was 
made  because  the  digital  control  system  does  not  impose  severe 
response  requirements  on  the  velocity  servomechanism. 

3.  8  Initial  Active  Mirror  Alignment 


The  final  alignment  procedures  described  above  are  only 
applicable  after  the  mirror  figure  has  been  approximately  aligned 
relative  to  the  figure  sensor.  Initial  alignment  is  performed  in  two 
stages.  The  first  stage  consists  of  tilting  the  mirror  or  mirror 
segment  until  three  designated  non-collinear  points  on  its  surface 
lie  on  the  surface  of  a  sphere  centered  on  the  image  sensor  de¬ 
collimator.  The  second  stage  of  adjustment  moves  the  mirror  in 
an  axial  fashion  until  the  distance  to  the  decollimator  focus  equals 
the  radius  of  curvature  of  the  mirror.  The  latter  adjustment  is 
less  sensitive  than  the  former.  Tilt  and  axial  control  adjustments 
can  be  repeated  a  number  of  times  until  satisfactory  alignment  is 
achieved. 

The  initial  alignment  control  systems  for  the  deformable 
mirror  are  included  in  the  deformable  mirror  electronics  and  are 
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not  discussed  here.  The  alignment  algorithms  for  the  segmented 
mirror  were  implemented  as  part  of  the  software  package  and  are 
discussed  in  the  following  sections. 

3.  9  Tilt  Alignment  System 


Each  segment  of  the  segmented  active  mirror  is  equipped  with 
three  actuators  which  permit  segment  motion  in  three  degrees  of 
freedom.  The  actuator  deflections  associated  with  the  jth  segment 
are  conveniently  identified  by  the  elements  ”^^12 

of  the  actuator  output  vector  The  corresponding  x,  y  position 

coordinates  on  the  figure  surface  are  identified  x.  ,  y-  ,  x  ,  y ■  ,  and 

X.  y.;  -  Suppose  that  it  is  desired  to  tilt  the  mirror  so  that  the  figure 

33  ^3  . 

errors  at  the  actuator  locations  are  all  zeros.  -Tilt  alignment  is 
achieved  by  the  following  sequence  of  operations: 


1.  Drive  the  figure  error  at  Xj^,  yj^  to  zero  using  actuator 


m. 


injr 

2.  Measure  the  figure  error  at  position  (1  - 

( 1  “  i A  )  y .,  +  y •  2  ^  ”  ^tilt  ’  adjust  actuator 

J**"  J 

m  to  drive  the  error  to  zero. 

m]2 

3.  Repeat  step  2  for  increasing  values  of  i  =  1,  2,  3  . . . 
*^tilt* 

4.  Simultaneously  perform  steps  2  and  3  for  position  Xj^  , 
yj^  using  actuator  mj^j^. 


At  the  end  of  step  4  the  errors  at  all  three  actuator  positions  will  be 
zero. 


The  tilt  control  algorithm  was  realized  by  modifying  the  program 
data  so  that  the  existing  control  structure  could  be  utilized  for  both  tilt 
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start 

TILT  ALIGNMENT 


TILT  ALIGNMENT 
COMPLETE 


Fig.  3.  9.  1  Tilt  alignment  algorithm. 
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control  and  fine  mirror  figure  adjustments.  The  actual  tilt  alignment 
program,  illustrated  in  Fig,  3.9.1,  performs  steps  1-4  for  all  three 
segments  simultaneously. 

3.10  Slew  Alignment  Algorithm 


Once  the  segments  have  been  aligned  in  tilt,  the  three  measurement 
points  on  each  segment  corresponding  to  the  actuator  locations  will  lie 
on  a  spherical  surface  centered  on  the  center  of  curvature  of  the 
spherical  wavefronts  emerging  from  the  decollimator.  However,  there 
is  no  assurance  that  all  the  measurement  points  will  lie  on  a  sphere 
of  uniform  curvature  as  a  result  of  possible  axial  misalignment.  In 
order  to  correct  this  problem  the  segmented  mirror  is  equipped  with 
an  adjacent  edge  ambiguity  sensor'*'  which  provides  a  measure  of  the 
relative  axial  segment  position.  The  output  of  the  ambiguity  sensor 
is  a  maximum  when  the  adjacent  segment  edges  are  at  the  same 
radius  from  the  figure  sensor.  A  disparity  in  edge  alignment  results 
in  a  reduction  in  sensor  output  monotonically  related  to  the  magnitude 
of  the  error  in  a  useful  range  of  ±600  nm. 

In  order  to  correct  errors  in  axial  segment  position  a  simple 
algorithm  was  developed.  The  control  algorithm  produces  a  sequence 
of  axial  position  commands  which  converge  to  the  position  which 
maximizes  the  ambiguity  sensor  output. 

Suppose  that  the  output  of  the  sensor  between  the  reference 
segment  j  and  segment  k  is  identified  as  and  the  corresponding 
axial  position  command  to  the  segment  k  actuators  is  ^ 

simple  algorithm  which  produces  a  sequence  of  which  maximize 

white  light  interferometer 
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a.,  is  shown  in  Fig.  3.10.  1.  This  algorithm  is  based  on  the  method 
of  steepest  descent.  The  variable  is  a  dummy  variable.  The 
parameters  NHC  and  NIC  keept  track  of  the  number  of  step  size 
halvings  and  successful  iterations  respectively.  An  iteration  is 
successful  if  the  ambiguity  sensor  output  is  increased.  The  step 
size  is  halved  if  a  zero  or  negative  change  in  a  occurs.  Computa- 
tion  is  terminated  if  NHC  equals  NHM  or  NIC  equals  NIM  where  NHM 
and  NIM  are  input  variables. 


The  axial  alignment  control  system  is  realized  so  that  the 
axial  positions  of  two  segments  are  simultaneously  adjusted  with 
respect  to  the  third  segment  which  serves  as  a  position  reference. 
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CHAPTER  4 

EXPERIMENTAL  ACTIVE  MIRROR  SOFTWARE 


4. 1  Introduction 

The  software  of  the  EAM  was  written  in  FORTRAN,  permitting 
execution  on  a  wide  variety  of  computers.  Development  and  initial 
checkout  were  performed  on  an  IBM  370/155,  and  final  checkout  was 
completed  on  an  XDS  Sigma  5/7  at  MSFC.  Software  to  be  used  in  the 
XDS  Sigma  2  was  written  in  a  simplified  FORTRAN  (370/155,  Sigma 
5/7  compatible)  to  accommodate  the  limitations  of  the  Sigma  2  FORTRAN 
monitor. 

The  software  consists  of  two  sections;  the  first  is  designed  for 
residence  in  the  Sigma  5  where  the  complicated  EAM  control  computa¬ 
tions  are  performed  on  a  time-shared  basis;  the  second  resides  in  the 
Sigma  2  and  provides  real-time  control  of  the  EAM  hardware. 

The  architecture  of  the  most  important  software  elements  is 
illustrated  in  Fig.  4. 1. 1.  The  main  programs  resident  in  the  Sigma  5 
and  the  Sigma  2  are  designated  SUPE5  and  SUPE2  respectively. 

The  major  hardware  component  control  functions  are  performed 
by  routine  EAMCS  via  the  figure  sensor  FIGSEN,  actuator  ACTCMD, 
and  remote  terminal  TYPCON  supervisory  subroutines.  While  figure 
error  measurement  and  actuator  command  execution  are  performed  in 
the  Sigma  2,  figure  data  processing  and  figure  control  computation 
are  performed  in  MAINA  which  is  interrogated  by  EAMCS.  The  capabilities 
of  MAINA  are  extended  by  subroutine  MAINC. 
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SIGMA  2 

SOFTWARE 

SIGMAS 

SOFTWARE 

Fig.  4.  1. 1  Major  EAM  software  components. 
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Data  input  control  is  primarily  provided  by  routines  SIMSYS 
and  RESPON  which,  in  addition,  provide  the  basic  software  structure 
for  active  mirror  simulation.  Most  of  the  data  for  the  EAM  control 
system  and  hardware  models  is  read  in  by  MFCS  which  also  provides 
coding  for  the  computation  of  the  gain  matrices  K  and  K  . 

O  jL 

Models  for  the  mirror  structure,  figure  sensor  and  actuator  are 
provided  by  MIRMDL,  FSMDL,  and  ACTMDL  respectively. 

Subroutines  MIRCAL  and  ACTCAL  provide  software  for 
experimentally  evaluating  the  reduced  structural  model  matrix  of  the 
mirror  and  checking  the  actuators  for  correct  operation  via  actuator 
command  perturbation  and  EAMCS. 

Diagnostic  and  parameter  modification  functions  using  the 
remote  terminal  are  provided  by  the  combination  of  TYPCON  in  the  2 
which  operates  the  terminal  and  MAINE  in  the  5  which  provides  the 
coding  required  to  perform  the  desired  operations. 

The  software  is  designed  to  provide  three  major  operating 
configurations  determined  by  input  operating  mode  control  parameters 
(MODV,  see  section  5.2.1). 

1.  Experimental  active  mirror  simulation  using  the  real¬ 
time  control  system  software  and  hardware  models. 

All  program  components  are  resident  in  the  Sigma  5/7. 

2.  Experimental  active  mirror  simulation  using  the  real¬ 
time  control  system  software  resident  in  the  Sigma  2. 

3.  Experiment  operation  using  the  Sigma  5  for  complex 
control  computations  on  a  when-available-basis  and  a 
real-time  hardware  control  system  resident  in  the  Sigma  2. 
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Operating  configurations  1  and  2  are  illustrated  in  Fig.  4.1.2 
which  shows  the  calling  priorities  in  the  simulation  mode.  In  con¬ 
figuration  1  all  the  software  modules  are  resident  in  the  Sigma  5  as 
indicated  by  boundary  "A."  It  is  also  possible  to  simulate  the  active 
mirror  using  both  the  Sigma  5  and  Sigma  2  computers  as  indicated  by 
boundary  "B."  In  this  case  all  transfers  across  boundary  "B"  are 
completed  using  SUPE5  and  SUPE2  as  explained  in  sections  5.2  -  5.4. 

The  calling  priorities  in  the  experiment  operating  mode  are 
delineated  in  Fig.  4. 1. 3.  Experiment  control  is  transferred  to  the 
remote  console  via  EAMCS  and  TYPCON.  Once  the  experiment  is 
started  it  will  continue  to  operate  for  NTIMSQ  cycles  unless  it  is 
interrupted  by  a  command  from  the  remote  terminal.  Boundary  "D" 
transfers  are  completed  through  SUPE5  and  SUPE2  while  communication 
across  boundary  "C"  is  accomplished  by  the  A/D,  D/A  and  D/D  chan¬ 
nels  associated  with  the  Sigma  2  interface. 

Note  that  SUPE2  in  configuration  1  is  a  subroutine  whereas 
SUPE2  is  a  main  program  in  operating  modes  2  and  3.  The  software 
is  set  up  so  that  versions  of  SUPE2,  EAMCS.  TYPCON,  FIGSEN  and 
ACTCMD  can  reside  in  the  Sigma  5  and  2  simultaneously.  This  permits 
all  three  operating  configurations  to  be  tested  without  the  necessity  of 
reloading  object  programs. 

4.2  Supervisory  Software 

Experimental  active  mirror  software  control  is  complicated  by 
the  dichotomization  of  the  computer  system  into  two  essentially 
autonomous  parts  consisting  of  a  large  scale  general  purpose  computer, 

*  i.  e. ,  subroutine  RESPON  calls  subrouting  EAMCS. 
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Fig,  4,  1,2  Major  subrouting  calling  priorities  in  the  EAM  simulation  mode. 
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Fig.  4.  1.  3  Major  subroutine  calling  priorities  in  the  EAM  experiment 

operating  mode. 


64 


the  XDS  Sigma  5/7,  and  a  small  limited  capacity  machine,  the  XDS 
Sigma  2.  Real-time  control  functions  are  restricted  to  the  Sigma  2 
which  plays  an  essentially  dedicated  role  in  the  experiment.  When 
computation  complexity  exceeds  the  abilities  of  the  Sigma  2,  a  data 
processing  request  is  placed  for  the  Sigma  5.  Because  of  the  limita¬ 
tions  of  the  current  Sigma  5-2  operating  system,  it  was  decided  to 
provide  the  control  structure  in  the  form  of  two  programs  SUPE5  and 
SUPE2  which  serve  as  main  programs  in  the  Sigma  5  and  Sigma  2 
respectively. 

Transfer  of  computation  responsibility  between  the  computers 
presents  a  number  of  unusual  problems.  It  was  decided  to  treat  each 
computer's  software  as  an  essentially  independent  program.  Data 
communication  between  the  computers  is  restricted  to  the  transfer  of 
a  common  data  block.  Transfers  from  the  Sigma  2  to  the  Sigma  5  are 
accomplished  by  the  following  sequence  of  operations. 

1.  Catalog  the  destination  and  return  subroutine  identification 
numbers  and  NENTRY  values. 

2.  Return  Sigma  5  program  control  to  SUPE5, 

3.  Transfer  the  Sigma  2  subroutine  identification  number 
and  NENTRY  value  to  the  Sigma  2  as  part  of  the  common 
storage  block  via  NFLGA  and  NFLGB. 

4.  Transmit  an  enable  signal  to  the  Sigma  2  to  initiate 
execution  of  the  Sigma  2  software.  A  computed  "GO  TO" 
statement  in  SUPE2  assures  transfer  to  the  2  subroutine 
with  the  appropriate  value  of  NENTRY. 

5.  Terminate  computation  in  the  Sigma  5. 
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The  Sigma  2  computer  will  continue  to  perform  the  programmed 
operations  in  the  selected  section  of  the  Sigma  2  software  until  they  are 
complete.  On  completion  return  to  the  Sigma  5  is  achieved  by  the  following 
sequence. 


6.  The  exit  point  from  the  Sigma  2  routine  is  identified  by 
assigning  a  value  to  NFLGA. 

7.  Sigma  2  program  control  is  returned  to  SUPE2. 

8.  SUPE2  enables  an  interrupt  which  initiates  execution  of 
SUPE5  and  terminates  Sigma  2  computation. 

9.  SUPE5  transfers  the  contents  of  the  common  data  block 
from  the  Sigma  2  to  the  Sigma  5  memory. 

10.  SUPE5  uses  its  addressing  structure  to  determine  the 
return  address  in  the  Sigma  5  software. 

11.  Control  is  transferred  to  the  identified  Sigma  5 
subroutine  with  the  appropriate  value  of  NENTRY. 


A  transfer  of  computational  authority  from  the  Sigma  2  to  the 
Sigma  5  uses  the  following  procedure. 

1.  The  Sigma  2  software  exit  point  is  identified  by  a  value 
of  NFLGA. 

2.  Return  Sigma  2  program  control  to  SUPE2. 

3.  Enable  an  interrupt  requesting  execution  of  SUPE5  in  the 
Sigma  5. 

4.  Terminate  computation  in  the  Sigma  2. 

The  Sigma  5  monitor  will  begin  execution  of  SUPE5  as  soon  as  it  comes 
to  the  head  of  the  job  queue. 

5.  Begin  execution  of  SUPE5. 

6.  SUPE5  transfers  the  contents  of  the  common  data  base 
from  the  2  to  the  5. 
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7.  Use  the  value  of  NFLGA  to  establish  a  new  Sigma  5 
destination  Sigma  2  return  address  catalogue  entry. 

8.  Extract  the  address  and  NENTRY  value  for  the 
subroutine  in  the  Sigma  5. 

9.  Transfer  to  the  5  subroutine  to  perform  the  desired 
computation. 

10.  Return  control  to  SUPE5. 

11.  Extract  the  return  address  in  the  Sigma  2  software 
package. 

12.  Transmit  the  common  data  block  to  the  Sigma  2. 

13.  Enable  an  interrupt  requesting  execution  of  SUPE2. 

14.  Terminate  Sigma  5  computation. 

15.  Transfer  to  the  return  address  in  the  Sigma  2. 

Note  that  the  above  procedures  permit  most  of  the  complex 
transfer  control  logic  to  reside  in  the  Sigma  5,  thus  minimizing  Sigma  2 
memory  storage  requirements. 


A  readily  apparent  problem  is  that  of  initially  starting  program 
execution.  This  problem  is  circumvented  by  using  an  IF  statement  to 
compare  the  value  of  a  program  variable  ISTART  to  9999  as  the  first 
statement  in  SUPE5.  Since  the  XDS  Sigma  5  sets  all  program  storage  to 
zero  during  loading,  the  initial  value  of  ISTART  is  zero.  Thus  equality 
is  initially  violated,  and  a  branch  occurs  to  a  section  of  SUPE5  which 
performs  initialization  and  sets  ISTART  =  9999.  Thus  subsequent  entries 
to  SUPE5‘  will  skip  the  initialization  step. 

4.  3  Cataloging  Transfer  Data 

Each  time  a  transfer  is  initiated  between  the  Sigma  5  and  Sigma  2 
or  vice  versa  it  is  necessary  to  store  the  following  information: 
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1.  The  identification  of  the  subprogram  to  which  transfer 
is  desired. 

2.  The  value  of  NENTRY  which  appears  in  the  destination 
subroutine  parameter  list  when  it  is  called. 

3.  The  identification  of  the  subroutine  to  which  return  is 
desired  when  the  computations  in  the  destination  software 
are  complete. 

4.  The  value  of  NENTRY  to  be  used  in  the  subroutine 
parameter  list  when  the  return  address  subroutine  is 
called. 

In  order  to  facilitate  this  process  the  subroutines'  names  are  each 
associated  with  a  distinct  identifying  number,  as  indicated  in  Table  4.  3. 1. 
Each  time  a  transfer  is  initiated  numbers  corresponding  to  1.  2,  3  and  4 
above  are  stored  by  inserting  them  as  parameters  in  subroutine  MARK 
which  is  then  called  with  NENTRY  =  1.  For  example: 

CALL  MARK  (1,  24.  4,  4.  3)  (4.3.1) 

indicates  that  a  catalog  entry  is  to  be  generated.  A  transfer  to  subroutine 
TYPCON  (4)  is  desired.  When  the  operations  designated  in  TYPCON  (4) 
are  complete,  MAINE  (3)  should  be  called.  Instruction  (4.3.1)  stores 
the  address  information  and  identifies  the  new  catalog  entry  by  in¬ 
crementing  an  integer  ITRANS  which  is  equal  to  the  number  of  entries 
which  have  been  generated. 

The  latest  address  data  may  be  extracted  from  the  catalog  by 
calling  MARK  with  NENTRY  =  2  or  3.  The  instruction: 

CALL  MARK  (2,  NFLGA,  NFLGB,  lA,  lA)  (4.3.2) 
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sets  NFLGA,  NFLGB  equal  to  the  destination  subroutine  identification 
number  and  NENTRY  value  respectively.  The  return  address  is 
produced  by  the  call: 

CALL  MARK  (3,  lA,  lA,  NFLGA,  NFLGB)  (4.  3.  3) 
which  also  deletes  the  present  address  data  by  decrementing  ITRANS. 


Table  4.  3. 1 


SIGMA  5 

SIGMA  2 

IDENTIFICATION 

IDENTIFICATION 

SUBROUTINE 

NUMBER  (NFLGA) 

NUMBER  (NFLGA) 

SIMSYS 

1 

MFCS 

2 

MAINA 

3 

MAINB 

4 

FSMDL 

5 

MIRMDL 

6 

RESPON 

7 

ACTCAL 

8 

MIRCAL 

9 

ACTMDL 

10 

ACTCMD 

21 

1 

EAMCS 

22 

2 

FIGSEN 

23 

3 

TYPCON 

24 

4 
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4.4 


Determination  of  the  Transfer  Address 


The  addressing  structure  of  SUPE5  provides  the  subroutine 
identification  number  NFLGA  and  the  entry  point  NFLGB  for  each 
Sigma  5  -  2  or  2  -  5  transfer.  Since  SUPE5  directly  controls  transfers 
to  any  desired  subroutine  and  entry  point,  it  is  necessary  to  provide 
some  method  of  indicating  whether  or  not  the  transfer  is  to  a  destination 
or  a  return  address.  This  is  accomplished  by  counting  the  number  of 
catalog  entries.  The  number  of  destination  -  return  addresses  is 
stored  in  ITRANS  which  is  incremented  every  time  a  new  catalog  entry 
is  generated.  The  value  of  ITRANS  at  the  completion  of  the  last  use  of 
the  addressing  structure  is  stored  in  ISTORE.  ITRANS  is  compared 
with  ISTORE  at  the  beginning  of  the  addressing  structure.  If  ITRANS 
is  greater  than  ISTORE,  the  current  catalog  entry  is  new  and  a 
destination  address  is  generated  by  calling  MARK  with  NENTRY  =  2. 

If  on  the  other  hand,  ITRANS  equals  ISTORE  a  return  address  is  desired 
and  MARK  is  called  with  NENTRY  =3.  A  request  for  a  return  address 
signifies  the  completion  of  a  cataloged  Sigma  2  -  5  or  5  -  2  transfer  and 
automatically  deletes  the  current  catalog  entry  by  decrementing  ITRANS. 

4.  5  Experimental  Active  Mirror  Simulation 

Simulation  of  the  experimental  active  mirror  is  accomplished  by 
combining  a  simulation  control  structure  (RESPON)  with  the  actual  mirror 
control  software  (ACTCMD,  EAMCS,  FIGSEN,  and  TYPCON)  and  software 
models  of  the  hardware  components  (ACTMDL,  FSMDL,  MIRMDL). 

A  block  diagram  of  the  simulation  is  shown  in  Fig.  4.  5. 1.  The 
control  system  is  operated  for  one  cycle  by  calling  EAMCS  with  NENTRY  - 
4  and  NTIMSQ  =  1. 
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START  SIMULATION  RUN 


END  SIMULATION  RUN 


Fig.  4.  5.  1  Simplified  block  diagram  of  the  EAM  simulation. 
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Provision  is  made  for  the  inclusion  of  a  stochastic  structural 
disturbance  generator  to  simulate  the  effect  of  random  orbital 
disturbances.  A  new  random  disturbance  is  requested  every  DTNOIS 
seconds. 

The  simulation  is  designed  to  output  data  every  TPRNT  seconds 
on  the  Sigma  5  line  printer.  The  data  illustrated  in  Fig.  4.  5.  2  includes 
the  time,  T,  the  performance  index,  PINDEX,  actual  figure  error,  XFAV, 
sensed  figure  error,  XFV,  commanded  figure  control,  UFV,  and  the 
actual  figure  control,  UFAV.  Diagnostic  information,  useful  for  figure 
control  system  development,  is  also  provided. 

Data  for  online  or  offline  plotting  is  processed  and  stored  every 
DTPLOT  seconds  by  subroutines  PLRT  and  STORED. 

The  simulation  run  is  terminated  when  the  simulation  time  exceeds 
the  input  limit  TEND.  On  termination  program  control  is  returned  to 
SIMSYS. 

4.  6  Experimental  Active  Mirror  Experiment  Operation 

Operation  of  the  experiment  is  achieved  by  selecting  the  appropriate 
operating  mode  configuration  using  the  mode  descriptions  in  section  5,2.2. 
The  OPERATE  CONTROL  SYSTEM,  USE  HARDWARE  COMPONENTS  and 
SIGMA  5-2  CONFIGURATION  modes  must  be  selected.  Once  all  input 
has  been  read,  TYPCON  will  request  instructions  from  the  remote  control 
terminal  for  initializing  and  starting  the  experiment.  A  detailed  de¬ 
scription  of  the  remote  control  functions  is  contained  in  Chapter  6.  Once 
operation  is  achieved,  the  hardware  components  function  under  the 
control  of  EAMCS  which  realizes  the  control  sequence  illustrated  in 
Fig.  3.4.2. 
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A  simplified  flow  diagram  of  EAMCS  is  shown  in  Fig.  4.6.  1.  The 
major  part  of  EAMCS  is  associated  with  the  acquisition  of  figure  error 
data.  The  collected  measurements  are  processed  by  the  Sigma  5  to 
eliminate  measurement  ambiguities  and  to  produce  a  new  figure  control. 
The  remaining  portion  of  EAMCS  operates  the  actuator  control  systems, 
controls  the  real-time  control  cycle  duration,  and  provides  an  experiment 
interrupt  provision  which  enables  the  operator  to  suspend  operation  for 
diagnostic  or  other  purposes  via  the  remote  terminal.  The  experiment 
is  automatically  terminated  when  NTIMSQ'*'  control  cycles  have  elapsed. 

4.7  EAM  Software  Descriptions  and  Functional  Block  Diagrams 


The  following  subsections  contain  brief  descriptions  and 
functional  block  diagrams  of  the  major  components  of  the  EAM  software. 
The  program  descriptions  and  functional  block  diagrams  are  arranged 
in  alphabetical  order. 

4.7.1  ACTCAL:  Actuator  Calibration 

ACTCAL  provides  the  software  necessary  to  check  the  figure 

actuators  for  correct  operation.  The  software  perturbs  each  element  of 

the  actuator  command  vector  m  .  by  ±  6  and  observes  the  corresponding 

Cl  aa 

change  in  the  measured  output  m  ..  The  command  perturbation  -  output 

mi 

measurement  sequence  is  repeated  times.  The  average  ratio 
between  the  output  and  input  perturbations  is  then  calculated  using  the 
relationship: 

(4.7.1) 

j 

*  NTIMSQ  =  NTIMS 


n 
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5 


Fig.  4.  6. 1  Simplified  flow  diagram  of  EAMCS. 


The  actuator  output  command  perturbations  and  output  measurements 
are  executed  by  EAMCS  via  ACTCMD.  A  flow  diagram  of  ACTCAL  is 
shown  in  Fig.  4.7.1. 

4.7.2  ACTCMD:  Figure  Actuator  Control  Systems 

ACTCMD  provides  the  necessary  closed  loop  control  for  the 
mirror  figure  actuators.  ACTCMD  also  transfers  the  actuator  commands 
to  the  actuator  models  and  returns  the  actuator  model  outputs  in  the  EAM 
simulation  mode.  Provisions  are  also  made  to  freeze  the  actuator 
positions  whenever  computational  authority  is  transferred  to  the  Sigma  5. 

A  detailed  discussion  of  the  actuator  control  algorithms  is  given  in 
sections  3.6  and  3.7.  Figure  4.7.2  shows  a  flow  diagram  of  ACTCMD. 

4.7.3  ACTMDL:  Mirror  Figure  Actuator  Models 

ACTMDL  provides  software  models  for  the  force  and  position 
figure  actuators.  ACTMDL  must  be  called  for  each  figure  actuator  which 
is  identified  in  the  parameter  list  by  the  index  lENTRY.  A  detailed 
description  of  the  actuator  models  is  given  in  section  2.  9.  A  flow  diagram 
of  ACTMDL  appears  in  Fig.  4.7.3. 

4.7.4  EAMCS:  Hardware  Component  Control  Software 

The  Sigma  2  subroutine  EAMCS  provides  the  core  of  the  real-time 
figure  control  system.  In  this  routine  the  physical  characteristics  of  the 
hardware  components  are  considered.  The  primary  functions  of  EAMCS  are 
to  provide:  an  actuator  control  time  interval  during  which  the  actuators  can 
reach  a  steady  state;  actuator  freeze  signals  to  inhibit  actuator  motion 
during  figure  error  measurement  and  data  processing;  position  commands 
to  the  figure  sensor  image  dissector;  figure  sensor  data  acquisition  and 
storage;  and  actuator  control  system  commands.  Further  discussion, of 
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the  real-time  control  system  is  given  in  sections  3.4.,  4.6  and 
Chapter  5.  A  flow  diagram  of  EAMCS  is  given  in  Fig.  4.7,4. 

4.7.5  FIGSEN;  Figure  Sensor  Control  Module 

Subroutine  FIGSEN  provides  the  communications  link  between  the 
EAM  software  and  the  mirror  figure  sensor,  FIGSEN  transfers  position 
commands  to  the  image  dissector  and  interrogates  the  output  of  the 
figure  sensor  phase  detector  fitter.  In  the  simulation  mode  FIGSEN 
obtains  figure  sensor  output  data  from  the  figure  sensor  model  FSMDL. 
Figure  4.  7.  5  shows  a  flow  diagram  of  FIGSEN. 

4.7.6  FSMDL:  Figure  Sensor  Model 

FSMDL  provides  a  software  model  of  the  figure  sensor.  FSMDL 
also  provides  software  for  reading  the  figure  sensor  model  data,  calcu¬ 
lating  performance  indices,  and  constructing  the  plot  data  transfer 
vector  X'VC  A  flow  diagram  of  FSMDL  is  presented  in  Fig.  4.7.6  . 

4.7.7  MAINA:  EAM  System  Computations 

MAINA  inputs  all  the  sequence  timing  data  for  the  digital  control 

system.  MAINA  also  reads  in  the  gains  for  the  figure  and  actuator- 

control  algorithms,  the  saturation  limit  m  on  the  actuator  commands 

max 

and  the  figure  sensor  data  processing  algorithm  parameter  values. 
MAINA  provides  calls  to  the  EAM  component  models  and  performance 
index  generator  data  input.  In  the  initialization  mode  MAINA  provides 
coding  and/or  subroutine  calls  to  initialize  the  entire  EAM  system. 
During  EAM  operation  or  simulation  MAINA  provides  software  for  figure 
sensor  data  processing  and  actuator  command  computation.  A  flow 
diagram  of  MAINA  appears  in  Fig.  4.7.7. 
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4.7.8  MAINE;  Remote  Control  Operations 


MAINE  provides  service  operations  on  EAM  program  variables 
for  the  remote  terminal.  The  service  operations  include  the  interpre¬ 
tation  of  an  input  variable  identification,  variable  display,  and  variable 
modification.  MAINE  also  provides  computations  required  to  process 
data  for  display  on  the  remote  terminal  during  experiment  operation. 

A  flow  diagram  of  MAINE  is  shown  in  Fig.  4.  7.  8. 

4.7.9  MAINC:  Initial  Alignment  Computations 

MAINC  provides  coding  for  the  mirror  segment  tilt  and  axial 
alignment  control  systems.  MAINC  reads  in  all  the  required  data  and 
provides  coding  for  the  segment  actuator  command  computations  using 
figure  and  ambiguity  sensor  data.  A  flow  diagram  of  MAINC  is  shown 
in  Fig.  4.  7.  9. 

4.  7. 10  MFCS:  Control  System  Data  Input  and  Gain  Matrix  Computation 

Subroutine  MFCS  reads  all  the  basic  information  for  the 
experimental  active  mirror  control  system  and  simulation.  If  MODOP  =  1 
or  2  MFCS  computes  the  simplified  linear  or  linear  optimal  feedback  gain 
matrix  respectively.  A  value  of  MODOP  *  3  results  in  the  input  of  a 
general  n^  by  n  gain  matrix  as  part  of  the  input  data  deck.  MFCS  also 
provides  calls  to  ACTCAL  and  MIRCAL  for  actuator  and  mirror  tests. 

Figure  4.7.10  shows  a  flow  diagram  of  MFCS. 

4.7.11  MIRCAL:  Mirror  Calibration 

Subroutine  MIRCAL  provides  the  software  required  to  experimentally 
evaluate  the  reduced  deformation-force  matrix  A^  of  the  mirror  which 
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relates  deformations  at  selected  points  on  the  mirror  surface  to 

perturbations  6^^  in  the  actuator  outputs.  The  reduced  matrix  is 

measured  n^^  times  and  the  results  averaged.  The  relationship 

between  the  deformation  at  the  ith  measurement  point  x.  .  due  to  a 

iini 

change  in  the  jth  actuator  output  m  .is: 


1  1  r 

hmi)  -  ■(’‘tmi)  ,1 

mf  k  =  1  af  L  =  -6  J 


(4.7.2) 


The  resulting  matrix  is  displayed  on  the  Sigma  5  line  printer.  MIRCAL 
is  shown  in  flow  diagram  form  in  Fig.  4.  7. 11, 


4. 7.12  MIRMDL:  Mirror  Model 


MIRMDL  provides  a  linear  representation  of  the  deformable 
or  segmented  mirror  for  use  in  the  EAM  simulation.  The  equation  of 
the  mirror  model  has  the  form: 

X  =  X  +  A  m  (4.  7.  3) 

f  d  r  m 

where  x^  is  the  figure  error;  x^  the  initial  figure  disturbance;  A^  the 

reduced  position-position  or  deformation-force  matrix  and  m  the 

pa 

position  or  force  actuator  outputs.  A  flow  diagram  of  MIRCAL  appears 
in  Fig.  4.  7. 12. 

4.7.13  PINDX:  Performance  Index  Generator 

The  subroutine  PINDX  accepts  the  n  dimensional  array  x  and 
returns  a  performance  index  evaluated  using  the  equation: 
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1/2 


(4.7,4) 


J  = 


r  n 

I'  w.  x.^ 

H=  1  '  "  - 


•where  w  is  an  input  array  of  positive  weights  and  x  is  a  parameter  array. 
For  an  unbiased  index  w.  =  n  ^  i  =  1,  n.  Figure  4.7. 13  shows  a  flow 
diagram  of  PINDX. 

4.7.14  PLRT:  Plotted  Data  Storage  and  Scaling 

Subroutine  PLRT  provides  the  software  required  to  store,  scale 
and  plot  simulation  data.  Potential  data  for  plotting  must  be  stored  in  XV. 
The  NPLOTV  elements  of  XV  to  be  stored  every  DTPLOT  seconds  are 
identified  by  the  elements  of  IPLOTV.  The  scales  to  be  used  when  each 
element  is  plotted  are  stored  in  the  array  SCALV.  MODV  contains 
elements  which  indicate  whether  or  not  the  corresponding  element  of  XV 
is  to  be  plotted  using  the  input  scale  factor  or  a  scale  factor  produced 
automatically.  If  IMODV  (I)  is  2,  a  scale  factor  is  automatically  generated 
for  the  data  corresponding  to  XV  (IPLOTV  (I)).  Automatic  scale  factor 
generation  is  omitted  if  IMODV  (I)  ■  1.  A  flow  diagram  of  PLRT  is 
delineated  in  Fig.  4.  7 . 14. 

4.7.15  RESPON:  Simulation  Control  Software 

Subroutine  RESPON  provides  the  control  structure  for  the  EAM 
Simulation.  RESPON  initializes  the  EAM  models  and  control  software 
and  the  simulation  data  collection  and  processing  programs.  During 
simulation  RESPON  provides  calls  to  EAMCS  every  control  cycle, 
artificial  real-time  generation,  stochastic  structural  disturbance  inputs, 
as  well  as  outputs  for  the  line  printer  and  the  data  plotting  routine.  See 
Fig.  4.7.  15  for  a  flow  diagram  of  RESPON. 
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4. 7. 16  SIMSYS:  Program  Control  Module 


SIMSYS  provides  the  computations  and/or  calls  required 

required  to  read  in  all  EAM  system  data.  Provisions  are  also  included 

to  permit  a  number  of  simulation  runs  to  be  performed  automatically, 

each  with  data  modifications  provided  by  a  data  editing  capability.  Thus 

it  is  possible  to  make  up  to  ten  simulation  runs  with  different  values  of 

P  for  example  without  the  necessity  of  reloading  the  data  deck.  In  the 

S 

hardware  operating  mode  SIMSYS  allows  the  experiment  to  select  any 
of  the  possible  edited  data,  configurations  via  remote  terminal  commands. 
SIMSYS  is  flow  charted  in  Fig.  4.7.16. 

4.  7. 17  STORED:  Plotting  Control  Software 

Subroutine  STORED  provides  the  coding  required  to  plot  the  data 
prepared  by  PLRT  using  Calcomp  plotting  routines.  Figure  4.7.  17  shows 
a  flow  chart  of  STORED. 

4.7.18  SUPE2;  Main  Sigma  2  Program 

SUPE2  is  the  main  program  resident  in  the  Sigma  2.  SUPE2  provides 
a  computed  transfer  to  the  Sigma  2  subroutine  identified  by  the  value  of  NFLGA. 

4.7.19  SUPE5:  Main  Sigma  5  Program 

The  main  program  in  the  Sigma  5  provides  the  software  required 
to  store  Sigma  2  transfer  data;  to  extract  subroutine  address  data  from  the 
transfer  file  and  to  transfer  to  subroutines  in  the  Sigma  5.  Refer  to  Fig. 

4.7.19  for  a  functional  block  diagram  of  SUPE5. 
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ACTCAL  1/4 


READ  DATA  NENTRY  =  1 


RETURN 


Fig.  4.  7,  1  ACTCAL  flow  diagram. 
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ACTCAL  3/4 


Fig.  4.  7.  1  Cont. 
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ACTCAL  4/4 


Fig.  4.  7.  1  Cont. 
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RETURN 
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RETURN 


Fig.  4.7.2  Cont. 
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Fig.  4.  7.  3  ACTMDL  flow  diagram. 
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ACTUDL  2/2 


RETURN 


Fig.  4.7,3  Cont. 
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EAMCS  1/9 


NENTRY  =  2 


INITIALIZATION 
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CHECK  OPERATING 
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INITIALIZE  CONTROL 
SYSTEM 


Fig.  4.7.4  EAMCS  flow  diagram. 
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EAMCS  2/9 


CHECK  OPERATING 
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Fig.  4.7.4  Cont. 
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Fig.  4.7.4  Cont. 
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Fig.  4.7.4  Cont. 
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EAMCS  5/9 


Fig.  4.  7.  4  Cont. 
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Fig.  4.  7.  4  Cont. 
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Fig.  4.7.4  Cont. 


96 


IDENTIFY 


EAMCS  9a/9 


Fig.  4.  7.  4  Cont. 
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Fig,  4.  7.  5  FIGSEN  flow  diagram. 
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Fig.  4.  7.  6  FSMDL  flow  diagram. 
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Fig.  4.7.6  Cont. 
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INPUT  DATA 
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Fig.  4.  7.  7  MAINA  flow  diagram. 
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Fig.  4.7.7  Cont. 
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Fig.  4.  7.  7  Cont. 
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Fig.  4.  7.  7  Cont. 
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Fig.  4.7.7  Cont. 
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Fig.  4.  7.  8  MAINB  flow  diagram. 
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Fig.  4.  7.  8  Cont. 
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Fig.  4.  7.  9  MAINC  flow  diagram. 
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Fig.  4.  7.  9  Cont. 
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4.7.10  Cont. 


6 


NENTRY -  3 


CHECK  ACTUATORS 


1 


INITIALIZE 

ACTCAL 

CALL  ACTCAL  (2) 

CH 
ACTU 
CALL  A( 

ECK 

ATORS 

3TCAL(3) 

1 


RETURN 


GENERATE  Ar  EXPERIMENTALLY 


INITIALIZE 

MIRCAL 

CALL  MIRCAL{2) 

EVALU 
CALL  M 

ATE  Ar 
RCAL<3) 

t 


RETURN 


Fig.  4.7.10  Cont. 
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Fig.  4.  7. 11  MIRCAL  flow  diagram. 
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Fig.  4.7.11  Cont. 
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MIRCAL  3/4 


Fig.  4.7.11  Cont. 
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Fig.  4,7.11  Cont. 
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Fig.  4.  7,  12  MIRMDL  flow  diagram. 
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Fig.  4.  7. 13  PINDX  flow  diagram. 
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Fig.  4.  7,  14  PLRT  flow  diagram. 
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Fig.  4.7.14  Cont. 
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Fig.  4.7.14  Cont. 
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Fig,  4.7.14  Cont. 
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Fig.  4.7.14  Cont. 
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OPERATE  THE 
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Fig.  4.7.15  Cont. 
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Fig.  4.  7. 16  SIMSYS  flow  diagram 


SIMSYS  2/5 


Fig.  4.7,16  Cont. 
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Fig.  4.7,16  Cont. 
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Fig.  4.7.16  Cont, 
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Fig.  4.7.17  STORED  flow  diagram. 
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Fig.  4.  7. 18  SUPE2  flow  diagram. 
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Fig.  4.  7.  19  SUPE5  flow  diagram. 
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7.20  Cont 


4.  7.  20  TYPCON;  Remote  Terminal  Control  Software 

TYPCON  provides  the  software  required  to  transfer 
information  to  and  from  the  remote  terminal . 
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CHAPTER  5 


EXPERIMENTAL  ACTIVE  MIRROR  INPUT  DATA 


5. 1  Introduction 

Data  for  the  EAM  software  is  read  in  card  format  by  the  Sigma  5 
card  reader.  This  procedure  was  adopted  to  minimize  the  use  of  the 
rather  limited  input -output  capability  of  the  Sigma  2  computer. 

Most  of  the  input  data  operations  are  performed  by  subroutine 
members  of  the  Input -Output  Operations  Package  (lOP)  which  is 
described  in  Appendix  B.  Utilization  of  lOP  subroutines  results  in 
large  savings  in  core  memory  by  reducing  compiler  generated  in  line 
code  compared  to  that  produced  by  READ  and  WRITE  statements. 

Considerable  memory  space  is  saved  and  a  high  level  of  con¬ 
venience  achieved  by  combining  data  heading  cards  with  the  data  deck. 
This  obviates  the  need  for  format  statements  and  simplifies  the 
identification  of  the  data  elements  in  the  data  deck. 

Fixed  point  data  is  generally  read  in  a  7110  Format  while  floating 
point  data  is  read  in  a  7E10.  0  Format  which  automatically  identifies 
the  decimal  point  location.  Single  dimension  arrays  are  read  in 
transposed  form  while  two-dimensional  arrays  are  read  in  row  by  row. 

Data  is  never  read  in  columns  73-80  to  allow  space  for  data  deck 
identification  letters  and  card  sequence  numbers. 

5.  2  Input  Data  Deck  Description 

The  following  sections  provide  a  sequential  description  of  the 
input  data  deck.  Heading  cards  are  indicated  by  their  contents,  e.  g. , 
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NHEADING.  Headings  for  numerical  data  are  read  in  7(2X,  A8) 
format.  Numerical  data  is  indicated  by  its  input  format,  e.  g. ,  (110), 
or  (ElO.  0).  If  the  input  data  does  not  correspond  in  name  to  the 
heading  card,  the  name  is  included  in  the  format  description,  e.  g. , 
(N,  no).  A  listing  of  the  input  data  is  shown  in  Fig.  5.  2. 1. 

5.  2.  1  Output  Data  Heading 

The  Sigma  5  reads  a  heading  card  NHEADING  and  an  integer  N 
which  defines  the  number  of  heading  cards  to  be  read  in  and  printed  in 
A  format.  The  card  defining  the  value  of  N  is  followed  by  the  heading 
cards  as  indicated  in  Fig.  5.  2. 1. 

NHEADING 
(N,  110) 

N  Heading  cards  (18A4) 

5.  2.  2  Operating  Modes 

The  operating  modes  of  the  system  are  read  in  as  a  one- 
dimensional  array.  The  computer  reads  a  heading  card  followed  by 
the  MODV  array  values  followed  by  a  set  of  cards  which  contain  the 
mode  identification  names  in  2(18A4)  format.  The  computer  reads 
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POSITION  ACTl'ATORS 
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Fig.  5.2.1  Input  data, deck. 
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and  prints  the  heading  card  and  the  array  values  and  then  identifies 
the  selected  modes  by  displaying  the  contents  of  the  mode  identification 
card  with  an  asterisk  to  indicate  the  selected  mode.  For  example,  if 
MODV(7)  was  1,  the  printer  would  display 


^  FIGURE  SENSOR  TEST  FIGURE  CONTROL  SYSTEM  TEST 
while  MODV(7)  =  2  would  produce 

FIGURE  SENSOR  TEST  *  FIGURE  CONTROL  SYSTEM  TEST 

MODV(l)  permits  the  user  to  select  between  manual  operation  or 
completely  automatic  simulation  run  control.  Manual  control  is 
accomplished  by  operating  a  sense  switch  on  the  computer  console 
which  is  interrogated  by  the  software.  Manual  control  permits  the 
operator  to  start  and  terminate  the  simulation  run  manually,  a  neces¬ 
sary  feature  if  on  line  plotting  of  results  using  a  strip  chart  or  xy 
plotter  is  desired. 


MODV(2)  permits  the  user  to  select  between  online  data  display  , 
and  offline  plotting  mode.  In  the  online  mode  plot  data  is  transferred 
directly  to  the  display  device.  The  offline  plotting  capability  permits 
the  user  to  store  data  on  magnetic  tape  for  later  display.  The  current 
EAM  package  does  not  include  an  online  plotting  capability;  however, 
online  plotting  is  easily  added  with  few  minor  modifications. 

MODV(3)  permits  the  user  to  eliminate  all  nonlinearities  which 
may  have  been  incorporated  in  hardware  component  models  and  the 
figure  control  algorithm.  This  capability  is  extremely  useful  for 
verifying  the  results  of  a  linear  analysis. 

MODV(4)  permits  the  operator  to  select  either  the  initial 
alignment  mode  for  coarse  orientation  of  the  mirror  segments  in  tilt 
or  axial  position  (Sections  3.  9  and  3.  10)  or  the  final  figure  control 
mode  (Sections  3.  2  and  3.  3), 
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M0DV(5)  determines  whether  the  tilt  or  axial  alignment  control 
systems  are  operated  if  the  INITIAL  ALIGNMENT  mode  is  selected, 

MODV(6)  is  utilized  to  select  the  actuator  control  algorithm 
appropriate  for  force  or  position  figure  actuation. 

MODV(7)  provides  two  control  system  modes  of  operation.  If 
the  FIGURE  SENSOR  TEST  mode  is  requested,  EAMCS  calls 
MAINA(6)  to  process  the  figure  sensor  data  each  time  a  set  of  NMEASQ 
figure  measurements  have  been  generated  at  a  measurement  position. 
Thus  the  figure  error  vector  will  be  generated  in  a  sequential  fashion. 
This  is  a  particularly  useful  display  mode  for  the  development  of 
figure  sensor  data  processing  algorithms.  If  FIGURE  CONTROL 
SYSTEM  TEST  is  selected  the  sum  of  the  squares  of  the  NMEASQ 
figure  measurements  at  each  position  are  stored  until  all  the  measure- 
ment  locations  have  been  scanned.  At  this  point  MAINE  is  called  to 
process  the  entire  set  of  figure  measurements.  The  latter  approach 
results  in  a  desirable  reduction  in  the  number  of  Sigma  2  to  Sigma  5 
interrogations. 

MODV(8)  enables  the  user  to  operate  the  experimental 
mirror  control  system  with  the  actual  hardware  components  or  with 
software  models  of  the  figure  sensor,  actuators  and  mirror.  If 
MODV(12)  =  2,  for  example,  the  control  system  will  use  the  real  time 
control  software  in  the  Sigma  2  and  the  component  models  which 
always  reside  in  the  Sigma  5. 

MODV{9)  permits  the  user  to  operate  the  software  in  the  simu¬ 
lation  or  in  the  actual  experiment  operating  mode.  MODV(9)  permits 
most  of  the  complicated  operating  sequence  control  logic  which  is 
essential  for  experiment  operation  to  be  skipped. 
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Computer  memory  may  be  saved  by  utilizing  the  reduced  mirror 
model  matrix  rather  than  the  full  matrix  A-*  The  reduced  matrix 
may  be  used  by  setting  MODV(IO)  equal  to  2. 

MODV(ll)  provides  the  capability  for  testing  the  remote  terminal 
control  capability  provided  by  the  subroutine  TYPCON  when  the  EAM 
software  is  operated  in  the  simulation  mode.  If  MODV(ll)  is  set  to  2, 
the  operator  must  provide  the  control  commands  to  initialize,  start 
and  stop  the  figure  control  system.  The  communications  may  be 
simulated  by  card  input -printer  output  or  by  the  Sigma  5  typewriter 
console  with  appropriate  device  assignment  through  NTYPO  and 
NTYPL 

The  computer  configuration  maybe  changed  using  MODV(12). 

If  MODV(12)  is  one  all  simulation  computations  are  performed  in  the 
Sigma  5.  A  value  of  MODV(12)  =  2  permits  the  simulation  of  the 
Sigma  5-2  operating  configuration  with  all  inter  computer  routine 
transfers  performed  via  SUPE2  and  SUPE5.  This  permits  a  complete 
check  of  the  supervisory  software  in  the  Sigma  5. 

5.  2.  3  Simulation  Control  Data 

Basic  control  data  for  the  simulation  consists  of  the  time  step 
size,  DT,  the  interval  between  output  print  data,  TPRNT,  the  duration 
of  each  simulation  run  TEND,  and  the  time  interval,  DTNOIS,  between  the 
generation  of  new  stochastic  structural  disturbances.  The  sense 
switch  assignment,  NSSRTJN,  for  manual  control  of  the  simulation  is 
also  input  at  this  time. 


*  It  is  only  necessary  to  use  the  complete  matrix  if  the  effects  of  a 
time -varying  distributed  disturbance,  not  adequately  modelled  by  a 
set  of  loads  or  displacements  applied  at  the  actuator  locations,  is 
under  investigation. 
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DT 

TPRNT 

TEND 

DTNOIS 

(El  0.0) 

(ElO.  0) 

(ElO.  0) 

(ElO.O) 

NSSRUN 

(110) 

The  value  of  DT  should  equal  the  real  time  control  system  cycle  time 
At,  TPRNT,  TEND  and  DTNOIS  should  be  integer  multiples  of  At. 


5.  2.  4  Run  Set  Identification  and  the  Number  of  Runs 
NRUN  NRUNM 


(110) 

(110) 

NCXV 

NCPV 

NICPV 

(110) 

(110) 

(110) 

(7(6X,  A4)) 
(7110) 
{7(6X,  A4)) 
(7110) 
(7(6X,A4)) 
(7110) 
CXM 
(7E10.  0) 
CPM 
(7E10.  0) 
CIPM 
(7E10.0) 


The  EAM  program  structure  permits  a  series  of  different  runs 
to  be  performed  without  the  necessity  of  reloading  input  data.  This 
capability  is  provided  by  incorporating  data  editing  routines  EDITA, 
lEDITA,  and  arrays  which  store  the  edited  data  values  for  each  run. 

A  series  of  runs  are  assigned  a  run  identification  number  NRUN  which 
identifies  the  first  run  in  the  set.  Subsequent  runs  are  identified  by 
NRUN+1,  NRUN+2,  etc.  The  number  of  runs  is  identified  by  the 
variable  NRUNM. 
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Provisions  are  also  included  to  operate  the  experiment  with  any- 
preselected  set  of  data.  The  remote  terminal  can  be  used,  via  TYPCON, 
to  select  the  desired  set  of  data.  The  required  data  modifications  are 
then  performed  in  SIMSYS. 

The  edited  data  must  be  associated  with  the  elements  of  three 
arrays  XV,  PARV  and  IPARV  by  the  addition  of  appropriate  code  in 
SIMSYS.  The  original  values  of  XV,  PARV  and  IPARV  are  stored. 

XV,  PARV  and  IPARV,  are  reset  to  the  original  values  before  editing. 
The  editing  routine  extracts  the  new  element  values  from  memory  and 
produces  the  modified  arrays. 

The  elements  of  XV,  PARV,  and  IPARV  which  are  to  be  modified 
are  identified  by  the  integer  arrays  JCXV,  JCPV  and  JICPV  of  dimension 
NCXV,  NCPV  and  NICPV,  respectively.  These  arrays  are  inputed 
together  with  identifying  names  which  are  stored  in  the  arrays 
NMCXV,  NMCPV,  and  NMICPV. 

The  values  to  be  used  in  each  of  the  NRUNM  runs  are  stored  in 
the  arrays  CXM,  CPM  and  ICPM. 

5.  2.  5 Device  Assignment  for  Manual  Simulation  Control 

NTYPE 

(110) 

Sense  switch  operation  cues  are  generated  for  the  simulation 
user  in  the  manual  control  mode  (MODV(l)=l).  The  cues  are  displayed 
on  the  device  identified  by  the  assignment  associated  with  the  value  of 
NTYPE.  The  normal  display  device  is  the  console  typewriter. 
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5.  2.  6  Plotting  Data 


NPLOTV 

(110) 

DTPLOT 

(ElO.O) 

IP  LOT  V 
(7110) 

IMODV 

(7110) 

SCALV 

(7E10.0) 

Data  to  be  plotted  must  be  transferred  to  the  XV.  In  general,  a 
larger  number  of  variables  are  trainsferred  to  XV  than  are  actually 
plotted.  The  number  of  XV  elements  to  be  plotted  is  defined  by 
NPLOTV.  The  information  to  be  plotted  is  stored  every  DTPLOT 
seconds.  The  elements  of  XV  to  be  plotted  are  identified  by  the  IPLOTV. 

An  automatic  scaling  provision  has  been  added  to  the  software. 

The  IPLOTV(K)  element  of  XV  maybe  automatically  scaled  for 
plotting  by  setting  IMODV(K)  =  2.  If  IMODV(K)  =  1,  the  IPLOTV(K)th 
element  of  XV  is  plotted  using  the  scale  defined  by  SCALV (K). 

5.  2.  7  Peripheral  Device  Assignment 

NSNSWT  NTYPI  NTYPO  NPUNCH  NMAG 

(110)  (110)  (110)  (110)  (110) 

The  EAM  software  is  designed  to  permit  a  variety  of  computer 
peripheral  device  configurations.  For  example,  the  remote  peripheral 
utilized  to  control  the  experiment  may  be  assigned  to  card  reader  ■ 
input -line  printer  output  for  test  purposes.  Similar  assignments  may 
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be  made  for  the  pvinch  and  a  magnetic  storage  device  by  reading 
appropriate  values  of  NPUNCH  and  NMA.G. 

NSNSWT  defines  the  interrupt  assignment  which  is  used  to 
transfer  control  to  the  typewriter  during  experiment  operation. 
Control  transfer  to  the  typewriter  must  be  accompanied  by  an  orderly 
termination  of  actuator  motion. 

5.  2.  8  Mirror  Model  Data 


N 

NR 

(110) 

(110) 

AM 

(7E10.  0) 

ASCALE 

AIMSCL 

(ElO,  0) 

(ElO.  0) 

The  dimension  N  of  the  mirror  model  matrix  AM  and  the  number 
of  actuators  NR  are  read  in  at  this  point.  If  MODV(IO)  =  1,  the 
complete  NxN  AM  is  inputed.  The  reduced  NxNR  AM  is  read  in  if 
MODV(IO)  =  2. 

If  the  mirror  matrix  is  not  in  the  desired  units  (wavelengths/ 
kilogram),  it  may  be  scaled  by  assigning  a  non  unity  value  to  ASCALE. 

If  ASCALE  f  1  the  computer  multiplies  AM  by  ASCALE  and  prints  the 
resulting  scaled  matrix. 

Computation  of  the  gain  matrices  or  involves  matrix 

inversion  of  A  or  A  'A  .  If  numerical  problems  arise  as  a  result 
rr  Y  Y 

of  the  limited  dynamic  range  of  the  computer  a  scale  factor  /3^g(AIMSCL) 
may  be  introduced  to  improve  numerical  accuracy.  The  matrix 
inversions  are  then  performed  on  the  matrices. 
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(5.2. 1) 


D  =  l8  A 
^  ^ms  rr 

or 

The  inverse  matrix  is  reconstructed  from  D  ^  by 


1 

rr 


- 

'^ms 


-1 


or 


A ’A 
r  r 


“^  =  jS  d"^ 
^ms 


(5.2,2) 


(5.2.3) 


(5.2.4) 


5. 2.  9  Figure  Sensor  Data 

FSCALE 
(ElO.  0) 

XFSV 
(7E10.  0) 

YFSV 
(7E10.  0) 

PSCALE 
(ElO.  0) 


The  output  of  the  figure  sensor  phase  detector  is  converted  to 
wavelengths  of  figure  error  by  the  scale  factor  FSCALE. 

The  X  and  y  coordinates  of  the  N  figure  measurement  positions 
are  read  in  as  elements  of  the  arrays  XFSV  and  YFSV,  respectively. 


*  corresponding  to  joint  locations  in  the  finite  element  model. 
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The  scale  factor  PSCALE  converts  the  coordinate  data  to  a  set  of 
values  suitable  for  input  to  the  figure  sensor  image  dissector. 

5.  2.  10  Actuator  Position  Data 

LACTV 

(7110) 

The  actuators  are  assigned  to  joint  positions  by  setting  NR 
elements  of  the  LACTV  array  to  one.  The  other  elements  should 
be  set  to  zero. 

5.2.11  Actuator  Scale  Factors 

ASCALV 
(7E10.  0) 

The  actuator  commands  m  are  converted  to  values  suitable  for 

c 

processing  by  the  Sigma  2  and  the  actuator  hardware  components  by 
multiplying  each  element  of  m^  by  the  corresponding  element  of 
ASCALV.  ASCALV  may  also  be  utilized  to  correct  differences  in  the 
actuator  scale  factors. 

5.  2.  12  Figure  Control  Algorithm 

MODOP 

(110) 

The  figure  control  algorithm  type  may  be  selected  by  assigning 
an  appropriate  value  to  MODOP.  If  MODOP  =  1,  the  gain  matrix 
GAINM  for  the  simplified  linear  control  system  is  calculated  by 
MFCS.  MODOP  =  2  results  in  computation  of  the  linear  optimal  gain 
matrix.  A  value  of  MODOP  =  3  inputs  a  NR  by  N  gain  matrix. 

GAINM 
(7E10.  0) 
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5.  2. 13  Actuator  Test  Data 


NMEASA 

(110) 

DACT 
(ElO.  0) 

Test  data  for  routine  ACTCAL  consists  of  the  number  of 
measurements  to  be  performed  and  averaged  NMEASA  and  the  mag¬ 
nitude  of  the  actuator  command  perturbation  DACT. 

5.2.14  Mirror  Calibration  Test  Data 

NMEASF 

(110) 

DACT 

(ElO.O) 

MIRCAL  reads  the  number  of  calibration  tests  NMEASF  to  be 
performed  and  averaged  and  the  size  of  the  mirror  test  actuator 
command  perturbation  DACT. 

5.2.15  Real  Time  Control  System  Parameters 


NTIMSO 

NWAIT 

NPOS 

NMINT 

NMEAS 

NTYO 

(110) 

(110) 

(110) 

(110) 

(110) 

(110) 

DT 

DTE 

GAINV(l) 

QGA 

QGB 

UFMAX 

(ElO.  0) 

(ElO.  0) 

(ElO.O) 

(ElO.O) 

(ElO.  0) 

(ElO.  0) 

The  real  time  control  schedule  parameters  define  the  number  of 
control  cycles  for  actuator  manipulation,  NWAIT,  the  number  of  ,' 
cycles  allowed  for  the  figure  sensor  output  to  settle  after  a  dissector 
position  change,  NPOS,  the  number  of  control  cycles  between  measure¬ 
ments,  NMINT,  and  the  number  of  measurements  at  each  location,  NMFAS. 
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The  control  system  status  is  displayed  on  the  typewriter  after 
every  NTYO  complete  sets  of  mirror  figure  error  measurements. 
Currently  typed  data  includes  the  elapsed  operating  time  and  the  rms 
value  of  the  figure  measurements,  PINDEX. 

DT  is  the  control  system  cycle  time  and  DTE  is  a  term  which  is 
added  to  T  in  the  cycle  time  control  loop  (EAMCS)  to  compensate  for 
roundoff  error. 

The  scalar  gain  matrix  multiplier  ^8^  is  read  in  as  the  first 
element  of  GAINV.  QGA  and  QGB  are  the  actuator  control  system 
gains.  UFMAX  is  a  limit  imposed  on  the  actuator  command  signals 
to  prevent  possible  damage  to  the  actuators  or  the  mirror  structure. 

5.2.16  Figure  Sensor  Filter  Parameters 

SIGLIM  SLPMN 
(ElO.O)  (ElO.  0) 

MSEQV 

(7110) 

The  digital  figure  error  data  processor  required  the  limit  on 
the  rms  measurement  error  SIGLIM,  the  extrapolation  factor  SLPMN 
for  ambiguous  measurements  and  the  scanning  sequence  MSEQV  for 
the  N  measurement  points.  The  figure  sensor  looks  at  the  point 
defined  by  MSEQV(N)  first;  i.e.,  XFSV (MSEQV (N)),  YFSV(MSEQV(N)). 
Subsequent  measurements  are  made  at  MSEQV (N-1),  MSEQV (N -2),  etc. 

5.2.17  Figure  Sensor  Model  Data 

FSNSIG  FSTFLT 
(ElO.O)  (ElO.O) 

IRAND 

(110) 
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The  figure  sensor  model  data  consists  of  the  rms  measurement 
noise  FSNSIG,  phase  detector  filter  time  constant  FSTFLT,  and  the 
initial  starting  value  IRAND  for  the  random  number  generator  which 
should  be  an  odd  integer. 

5.2.18  Actuator  Model  Data 

TACTV 

(7E10.0) 

The  time  constants  for  the  first  order  actuator  models  are  read 
in  as  NR  elements  of  TACTV. 

5.2.19  Mirror  Model  Data 

AMM 
(7E10.  0) 

XFDV 
(7E10.  0) 

Data  for  the  mirror  model  consists  of  the  mirror  model  matrix 
AMM  and  the  initial  figure  error  XFDV.  The  mirror  model  matrix  is 
read  in  in  the  same  form  as  AM  and  scaled,  if  necessary,  using 
ASCALE. 
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5.2.20  Initial  Alignment  Control  System  Data 


LREFAV 

(7110) 

SMXV 

(7E10.  0) 

SMYV 

(7E10.  0) 

BSMP 

BSDP 

DELU 

(ElO.  0) 

(ElO.O) 

(ElO.O) 

NHM 

NIM 

(110) 

(110) 

NTILT 

NCTILT 

(110) 

GTILT 

(ElO.  0) 

(110) 

The  initial  alignment  control  system  data  is  read  in  by  MAINC. 
The  vector  LREFAV  of  dimension  9  identifies  the  actuator  allocation 
during  initial  alignment.  The  first  three  elements  of  LREFAV  identify 
the  elements  of  UFV  associated  with  segment  one.  The  first  element 
provides  the  reference  actuator  for  initial  tilt  alignment.  The  second 
and  third  elements  identify  the  actuators  used  in  the  secondary  tilt 
adjustments.  The  next  three,  and  last  three  elements  of  LREFAV 
identify  the  actuators  associated  with  the  second  and  third  segments  in 
a  similar  fashion.  The  X  and  Y  coordinates  of  the  actuators  are 
read  in  as  the  arrays  SMXV  and  SMYV,  respectively. 

The  peak  ambiguity  sensor  model  output  BSMP  and  the  second 
order  coefficient  BSDP  are  read  in  next.  Note  that  BSDP  must  be 
less  than  zero. 

The  slew  control  system  algorithm  requires  the  actuator  output 
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perturbation  DELU,  the  maximum  number  of  successful  control 
algorithm  iterations  NIM  and  the  maximum  number  of  step -size 
halvings  NHM  as  input  variables. 

Tilt  control  requires  the  number  of  control  computations  at  each 
computed  measurement  position  NCTILT  and  the  number  of  scan  path 
divisions  NTILT  (between  the  reference  and  secondary  actuator 
positions).  The  control  loop  gain  GTILT  is  also  required. 

5.2.21  Performance  Index  Data 

WGTV 
(7E10.  0) 

The  weighting  factors  for  the  performance  index  are  read  in  as 
N  elements  of  the  WGTV  array. 
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CHAPTER  6 


REMOTE  CONTROL  OF  THE  EXPERIMENT 


6.1  Introduction 


Since  the  Sigma  5-2  computers  are  some  distance  from  the 
experimental  hardware,  it  is  desirable  to  incorporate  a  capability  for 
controlling  the  experiment  from  a  point  remote  from  the  computation 
facility. 

The  experimental  active  mirror  software  has  been  designed  to 
permit  operation  of  the  experiment  from  a  remote  location  by  means 
of  a  peripheral  device  such  as  a  teletype,  for  example.  Instructions 
required  to  initiate,  start  and  stop  the  experiment,  display  and  modify 
control  system  parameters  and  more  complicated  functions  such  as 
actuator  test  and  calibration  are  incorporated. 

Coding  has  also  been  generated  to  permit  the  automatic  periodic 
display  of  important  control  system  parameters,  for  monitoring 
purposes,  on  the  remote  terminal. 

6.  2  Experiment  Control  Commands 


The  remote  terminal  is  designated  by  the  device  assignments 
NTYPI  for  input  and  NTYPO  for  output  (NTYPIQ  and  NTYPOQ  in  the 
Sigma  2  software).  The  split  assignment  enables  the  card  reader  to  be 
used  to  simulate  remote  input  while  the  line  printer  is  used  for  remote 
output  during  initial  checkout,  for  example. 
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Conversation  with  the  remote  terminal  is  initiated  by  calling 
TYPCON  with  NENTRY  *  2.  TYPCON  (2)  is  called  automatically  by 
EAMCS  to  request  control  system  initialization  and  start  instructions. 

During  experiment  operation  TYPCON  (2)  may  be  called  by  enabling  a 
Sigma  2  interrupt  or  sense  switch  which  sets  MODEQ  =  3  stopping  the 
experiment  and  generating  a  request  for  instructions. 

TYPCON  (2)  requests  a  value  for  MODEQ  by  typing  MODE  =  ? 
and  waiting  for  the  operator  to  respond  by  typing  an  integer  in  13  format. 

The  integer  value  must  be  greater  than  zero  and  less  than  13.  The 
functions  associated  with  each  mode  value  are: 

MODEQ  =  1  Initializes  the  mirror  figure  control  system. 

MODEQ  =  2  Starts  the  mirror  figure  control  system.  EAMCS 
checks  to  see  if  MODEQ  =  2  was  preceded  by 
MODEQ  =  1  to  assure  that  the  control  system  is 
ready  to  start. 

MODEQ  =  3  Stops  the  mirror  figure  control  system,  freezes  the 
figure  actuators  and  returns  control  to  TYPCON  (2) 
for  further  instructions. 

MODEQ  =  4  Provides  a  calling  sequence  to  test  the  actuators  for 
correct  operation  via  MFCS  and  ACTCAL. 

MODEQ  =  5  Provides  a  calling  sequence  to  calibrate  the  mirror 
structure  via  calls  to  MFCS  and  MIRCAL. 

MODEQ  =  6  Initiates  the  diagnostic  mode  of  operation  of  TYPCON. 

TYPCON  will  then  request  a  variable  name  and  index 
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MODEQ  = 


MODEQ 


MODEQ 


MODEQ 


(indices)  from  the  experiment  operator.  The 
operator  responds  by  typing  a  variable  name  in 
(IX,  A4)  format.  The  name  is  checked  and  asso¬ 
ciated  with  a  numerical  identifier  by  MAINC.  If  the 
name  is  not  a  member  of  a  stored  list,  an  error  is 
registered  and  a  new  name  requested.  The  value 
of  the  numerical  identifier  determines  whether  or 
not  an  index  or  indices  are  requested  of  the  operator. 
The  member  of  the  data,  thus  identified,  is  dis¬ 
played  on  the  remote  terminal.  The  system 
remains  in  the  diagnostic  mode  until  the  name 
DEND  is  submitted,  resulting  in  a  request  for  a 
new  value  of  MODEQ. 

7  Provides  the  steps  required  to  modify  the  input 
data  to  correspond  to  run  NRUN  using  the  stored 
information  and  editing  capability  of  SIMSYS  and 
a  value  for  NRUN  provided  on  request  by  the 
operator. 

8  Resumes  operation  of  the  experiment  if 
termination  has  occurred  during  operation  as  a 
result  of  MODEQ  =  3. 

9  Evaluates  and  types  the  rms  figure  error  using 
PINDX. 

10  Initiates  a  parameter  modification  mode.  The 
variable  identification  sequence  for  MODEQ  =  6 
is  followed  by  a  request  for  a  new  variable  value 
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which  is  accepted  in  (14)  or  (F12.  6)  format.  The 
terminal  responds  by  retyping  the  new  variable 
value. 

MODEQ  =  11  Unused  mode. 

If  MODEQ  is  greater  than  11,  the  terminal  types  MODE  TOO  BIG 
and  requests  a  new  value  for  MODEQ. 

6. 3  Experiment  Monitoring  Capability 

The  software  is  designed  to  output  data  useful  for  monitoring  the 
active  mirror  experiment.  The  data  currently  consists  of  the  rms  value 
of  the  N  elements  of  the  figure  error  vector  XFV  calculated  by  PINDX 
and  the  total  operating  time  of  the  current  experiment.  The  operating 
time  is  the  product  of  the  number  of  control  cycles  ITIMS  and  the  control 
cycle  time  DT. 
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CHAPTER  7 


SUMMARY 

7 . 1  General  Features  of  the  Digital  Control  System 

This  report  describes  the  current  version  of  a  versatile  multi¬ 
computer  software  system  developed  at  MIT/DLto  simulate  a  mirror 
figure  control  system  and  by  simple  modification  to  provide  the 
control  software  for  an  experimental  active  mirror  at  the  Marshall 
Space  Flight  Center, 

The  internally  generated  control  laws  provide  for  initial  align¬ 
ment  of  the  segmented  mirror,  and  simplified  linear  and  linear 
optimal  algorithms  for  fine  alignment  of  the  segmented  and  deformable 
mirror  figures.  The  control  algorithm  is  also  designed  to  accept  a 
general  gain  matrix  for  the  fine  figure  alignment  algorithm. 

The  software  includes  a  digital  filter  to  process  figure  sensor 
data.  The  filter  operates  to  remove  measurement  ambiguities  and 
signal  noise  which  arise  as  a  result  of  the  inherent  characteristics  of 
the  interferometric  figure  sensor. 

The  software  is  written  in  FORTRAN,  permitting  execution  of  the 
simulation  on  a  broad  spectrum  of  different  computers. 

The  control  software  for  the  experiment  is  an  integral  part  of  the 
simulation.  Thus,  it  is  possible  to  completely  check  out  and  evaluate 
a  programmed  control  algorithm  by  simulation  before  execution  with 
the  hardware  is  attempted. 

The  software  is  arranged  so  that  the  simulation  may  be  operated 
entirely  within  the  boundaries  of  one  computer.  In  this  mode  it  is 
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possible  to  simulate  operation  in  the  two  computer  configuration.  The 
simulation  may  also  be  operated  in  a  two  computer  mode  with  the 
Sigma  5  simulation  system  utilizing  the  real  time  control  in  the 
Sigma  2. 

Operation  of  the  software  with  the  hardware  components  is 
achieved  by  a  simple  modification  of  an  array  of  input  operating  mode 
variables.  Thus,  it  is  not  necessary  to  juggle  program  modules  to 
convert  from  a  simulation  to  an  experiment  operation  mode  and 
vice  versa. 

Simplified  software  models  are  provided  for  all  components  of 
the  segmented  and  deformable  mirror  control  systems.  Models  are 
included  for  the 

1.  mirror  structure 

2.  mirror  figure  sensor 

3.  segment  axial  alignment  (ambiguity)  sensors 

4.  position  figure  actuators 

5.  force  figure  actuators 

The  software  has  been  partitioned  to  permit  the  simple 
substitution  of  more  elaborate  models  of  each  of  the  component 
models  if  desired. 

An  extensive  remote  control,  diagnosis  and  parameter 
modification  capability  has  been  incorporated  in  the  software  to 
permit  operation  of  the  experiment  from  a  terminal  distsint  from  the 
computer  facility. 

Data  modification  may  be  accomplished  by  rereading  a  modified 
input  data  deck,  or  by  utilizing  an  automatic  data  editing  capability 
and  prestored  values,  or  by  directly  modifying  system  parameters 
from  the  remote  terminal. 
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The  sequence  of  operator  commands  to  the  experiment  is 
monitored  to  prevent  errors.  Thus  the  start  command  must  be  pre¬ 
ceded  by  the  initialization  command,  for  example. 

Actuator  command  signals  to  the  figure  actuators  are  limited 
in  magnitude  to  prevent  damage  to  the  experiment  in  the  event  of  an 
operator  error. 

The  figure  actuators  are  automatically  ^’frozen*'  during  figure 
error  measurement,  figure  error  processing  and  control  generation 
and  in  the  event  of  an  operator  or  program  induced  termination  of 
experiment  operation.  Freezing  the  actuator  positions  minimizes  the 
effects  of  actuator  motion  on  figure  measurement  and  prevents  actuator 
divergence  during  periods  when  the  Sigma  2  computer  is  not  available 
for  real  time  component  control. 

Evaluation  of  the  experimental  or  simulation  results  is  facilitated 
by  the  inclusion  of  software  to  compute  a  number  of  performance 
indices. 

Provisions  have  also  been  made  for  incorporation  of  online  or 
offline  plotting  of  experimental  data.  The  plotting  routine  includes 
data  acquisition,  storage,  and  preparation  for  plotting.  Automatic 
scale  generation  features  are  also  included. 

The  software  is  designed  to  periodically  display  experiment 
status  information  on  the  operator’s  console  for  monitoring  purposes. 
The  status  data  currently  includes  the  rms  figure  error  and  the 
experiment  operating  time. 
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APPENDIX  A 


EXPERIMENTAL  ACTIVE  MIRROR  SOFTWARE  LISTINGS 
A .  1  Introduction 


This  appendix  contains  software  listings  of  each  EAM 
software  module  with  the  exception  of  minor  subroutines  which 
appear  in  the  library  packages  in  Appendix  The  subroutines 
are  presented  in  alphabetical  order.  The  following  general 
procedures  were  adhered  to  during  software  construction. 

1.  The  names  of  one  dimensional  arrays  end  in  V 
in  general. 

2.  The  names  of  two  dimensional  arrays  end  in  M 
in  general. 

3.  Data  is  generally  read  in  and  initial  computations 
performed  when  a  subroutine  is  called  with 
NENTRY  =  1. 

4.  Initiallizations  are  performed  when  NENTRY  =  2 

5.  Values  of  NENTRY  >  2  generally  signify  that  a 
system  computation  or  data  transfer  is  being 
performed. 

All  arrays  appear  in  one  dimensional  form  in  the  software  package. 
This  convention,  which  follows  the  practice  of  IBM  in  the  develop¬ 
ment  of  their  subroutines  for  one  and  two  dimensional  array  manipu¬ 
lation,  has  a  number  of  important  advantages  including  savings  in 
memory  space  by  the  elimination  of  compiler  generated  code  and 
the  elimination  of  many  of  the  problems  which  arise  when 
variables  are  transferred  via  subroutine  parameter  lists. 
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For  example,  the  array  AM  which  represents  an  n  x  n  matrix 
may  be  simply  set  to  zero  by 

I  =  N  *  N 
DO  2000  J  =  1.  I 

2000  AM(J)  =0.0  (A.  1.1) 

whereas  the  two  dimensional  n  x  n  array  BM  requires  the 
following  code  to  be  zeroed 

DO  2000  I  =  1,  N 
DO  2000  J  =  1,  N 

2000  BM(I,  J)  =  0.0  (A.  1.2) 

Note  that  the  computer,  which  treats  all  arrays  as  one  dirriensional, 
must  compute  each  storage  location  L  of  the  I,  Jth  element  in 
(A.  1.2)  by  a  computation  similar  to 

L  =  ( J  -  1)  *  N  +  1  +  (L^  -  1)  (A.  1. 3) 

where  is  the  necessary  address  of  the  array  BM.  In  the  case  of 
(A.  1. 1)  L  is  merely 

L  =  I  +  (L  -  1)  (A.  1.4) 

r 

Suppose  that  the  arrays  AM  and  BM  are  to  be  passed  to  a 
subroutine  as  parameters.  The  array  AM  may  be  dimensioned 

DIMENSION  AM(1)  (A. 1.5) 

in  the  subroutine  regardless  of  the  value  of  N  in  the  calling  program 
whereas  BM  must  be  dimensioned 

DIMENSION  BM(N,  N)  (A.  1.6) 

in  both  the  main  program  and  the  subroutine.  This  leads  to  the 
possibility  of  errors  and  restricts  the  usefulness  of  the  subroutine. 
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The  data  block  utilized  to  transfer  information  to  or  from  the 
Sigma  2  is  labelled  SIGTWO.  Variables  utilized  by  both  the  Sigma  2 
and  Sigma  5  software  are  identified  in  the  data  block  by  the  suffix  Q 
in  the  case  of  integer  data  or  the  prefix  Q  in  the  case  of  floating  point 
variables.  The  SIGTWO  block  arrays  QUFAV  and  MODVQ  correspond 
to  UFAV  and  MODV  in  the  Sigma  5,  for  example. 


SIIB'^OUTIMF 

SURf^OUTlMF 

SIRROUTI'-JF 

SURROUTI'Jf 

Sll=<POUTr]F 
SIIPPOUTT'JF 
cunPOUTI'i- 
SIlRPOilT  I  'iC 
FURPOUT.TF'F 
SIRROUTINF 
SliRROUTTME 
SURPOUTIME 
SURROUTlME 

riirpouti^if: 


aCrCFL  ('\liNTRY ) 

ACTCMO  (:NtNTRY) 

ACTM';)L  (.MEnTkY*  TPNiTRY) 
EAMCS (NENTRY) 

F^IGSFN  (f^EiMTRY.  I) 

FS  -IOL  (  vIENTRY.  IFMTRY) 

MAlE'A  (\i£NTRY) 

('nIENT:^!  ) 

(  ■■•'EaiTky) 

I'lfCS  (Mr  MTRY) 

Mlr^CAL  (NtNTRY) 
MiRi'IDLd'ltNTRYtlACT) 

(ajEnTRY^PIHDEX^YV) 
PL^T (MFNTPYtXVfT.OT.MRUN) 
QeSROM(NtNTRY) 


FURPOUTINF  SIMSY5 (NtNTRY) 

FURPOUTIME  STOPr  n  ( NlENTRYfRAMG. '•'IOTH.SPaC. '^CALVf  X.Y.  XSPRED. NPLOTVf 
1  ^^DT5.^.;RJM) 

SIIROOUTIN*  SUPER 
MAIM  PROG  SUPER 
cijPPOUTIMF  TYPCUM  (ivlENl  PY) 
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no  onnoon  oooo  no  o  nooo 


SUBROUTINE  ACTC AL ( NENTRY ) 

SUBROUTINE  TO  TEST  FIGURE  ACTUATORS 

SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  START 

DIMENSION  XFV(  20) tUFV(  20) ,ASCALV(  20) tFSCALV(  20) ,XFSV(  20 ) , 

1  YFSV( 20),XFRV( 20) ,0UMV( 20 > ♦ UFAV( 20 ) t DUMV A(  20 ) t GA I NV(  10 ) , 

2  GAINM( 1600) tASV( 3) 

COMMON/BLKEAM/XFV.UFVtASCALVtFSCALVtXFSVtYFSVtXFRVtDUMVtUFAVt 
1  DUMVA,GAINV,GAINM, ASV 

DIMENSION  LACTV( 20) 

COMMON/BKIEAM/LACTV,NCVEL  tN,NRtNRAtM00E,M0D0P,NSNSWTtNTYPI, 

1  NTYPO,NPUNCHtNMAGtNSENS»NWAIT,NPOS»NMINTtNMEAS,NFSENSfNTIMS 

DIMENSION  AM( 400) ,AIM{ 400) 

COMMON/BLKMFC/AMt AIM 

DIMENSION  IAV(  30)tIRV(  30 ) , I CV{ 30 ) 1 1 DV( 30) tIEV( 30)t 

1  JCXV(  10)»JCPV(  10),JICPV(  10)tCXV(  10)tCPV(  10) ,ICPV(  10) , 

2  CXM( 100)tCPM( 100),ICPM( 100),NMCXV( 10)fNMCPV( 10)fNMICPV( 10)t 

3  M0DV( 20) 

COMMON/BLKIV/IAVtNIAVt IBVtNIBVt ICV,NICV,IDVtNIDV, lEVtNIEVtNXtNUt 

1  NCXVfNCPVtNICPVt JCXV,  JCPV, JICPV,CXVtCPV, ICPV,CXM,CPMt ICPM, 

2  NMCXVtNMCPVtNMICPVTMODV 

DIMENSION  AMM( 400) ,WV( 20) ,DUMBV( 20) ,XFAV{ 20) ,XFDV( 20) 
COMMON/RLKMDL/AMMtWV ,DUMBVtXFAVtXFDV 
SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  END 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  0XFSV( 20) ,0YFSV( 20) ,0nUMVA{  20) tODUMVB( 20) ♦0DUMVC( 20) , 

1  0UFV( 20) ,0UFAV( 20) ,MSE0V0( 20) tM0DV0(  20) , IDUMV0( 10) ,0UFERV(  20) t 

2  0ASV( 3) 

COMMON/ S I GTWO/OXFSV,OYFSV,ODUMVATODUMVB,ODUMVC,OUFV,OUFAVtOXF, 

1  MSEOVO,NSENSOrNWAITOtNPOSO,NMINTOtNMEASOtNFSENO,NTIMSO»LSENSf 

2  NFLGAtNFLGB,NFLGCtNFLGD,NFLGE»NTYPOO,NTYPIOtMODVOf NOtNRO, 

3  ODT tODTEtOUFMAXtMODEO»OGA,OGBrOUFERV, IDUMVOtOASVfNCVELO 
SIGMA  2  DIMENSION  STATEMENTS  END 

DIMENSION  DUMVD{ 20) 

1000  FORMATS  7H  ACTCAL  ) 

1002  FORMAT(  / , 3X 1 12HACT0UT/ ACT  I N ) 

GO  TO  { 1 t2,3r4»5,6) tNENTRY 

INPUT  DATA 

1  PRINT  1000 

CALL  IRANDP(  1 tNME AS A , I  A, I A , I  A , I  A 1 1  A , I  A t4  ) 

CALL  RANDPD( 1 , DACT , DA t DA , DA ♦ DA, DA t DA ♦ 4 ) 

DB=:DACT^2*0 
DB=KO/(  NMEASA^DB) 

RETURN 

INITIALIZATION 

2  RETURN 
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C  ACTUATOR  CALIBRATION 

C  RETURN  TO  SIGMA  2  TO  INITIALIZE  EAMCS  I 

3  IGOA=MODV(  12) 

GO  TO  ( 2213,2200) ,IGOA  1 

AM  SOFTWARE  TEST  COD  I NG***’!'**********************’*'*********’*'***^* 
2213  CALL  EAMCS( 8)  ! 

GO  TO  4 

SOFTWARE  TEST  CO  D 1 NG******************************************! 

2200  CALL  MARK! 1,22,8,8,4) 

RETURN 

C 

4  SGAIN=GAINV« 1)  1 

GAINVI 1 )=0.0 

NTIMS=NWAIT 
NTIMSO=NTIMS 
DO  2202  1=1, NR 

2202  DUMV( I )=0.0 
J=0 

C  DETERMINE  THE  STEADY  STATE  ACTUATOR  GAINS  NMEASA  TIMES  AND 
C  AVERAGE  THE  RESULTS 

2208  J=J+1 

IF( J-NMEASA)2209, 2209, 2210  I 

2209  DO  2203  K=1,NR 

UFV(K)=-DACT  1 

2203  OUFV(K)=UFV(K)*ASCALV(K) 

C  RETURN  TO  SIGMA  2  TO  ADJUST  THE  ACTUATORS  I 

GO  TO  ( 2212,2204) , IGOA 

Q5[=##*:S:EAM  software  test  CODING*******************’*'********************** 
2212  CALL  EAMCS( 3) 

GO  TO  5 

C:{t«««’!’EAM  SOFTWARE  TEST  CODING****************************************** 

2204  CALL  MARK!  1 ,22,3,8,5 ) 

RETURN 

C 

5  DO  2205  K=1,NR 

UFAV( K)=OUFAV(  K)/ASCALV<  K) 

DUMVDI  K  )  =  UFAV(  K) 

UFV(K)=DACT 

2205  OUFV( K)=UFV( K)*ASCALV(  K) 

C  RETURN  TO  SIGMA  2  TO  ADJUST  THE  ACTUATORS 

GO  TO  ( 2211,2206), IGOA 

C>ic4;;$;#4:£AM  SOFTWARE  TEST  CODING****************************************** 
2211  CALL  EAMCSI 3) 

GO  TO  6 

C**#*#EAM  software  test  CODING****************************************** 

2206  CALL  MARK(  1 122 t3 » 8t 6) 

RETURN 

C 

6  DO  2201  K=1,NR 

UFAV( K)  =  OUFAV(  K) /ASCALV(  K) 

2201  DUMV( K)=( UFAV{  K)-DUMVD(  K) )+DUMV(  K) 

GO  TO  2208 

2210  CONTINUE 

DO  2207  I=ltNR 
UFV(I)=0.0 
OUFV(  I  )=0.0 
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c 

c 


2207  DUMV(  I  )=DUMV(  H^DB 

PRINT  OUT  ACTUATOR  SCALE  VECTOR 
PRINT  1002 

CALL  MXRNPI DUMV»ltNRt3) 

GAINV( 1)=SGA1N 
RETURN 

END 
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SUBROUTINE  ACTCMD( NENTRY ) 


C 

C 

C 

C 

C 


C 

c 

c 

c 

] 

c 

c 


c 

c 

c 


SUBROUTINE  TO 
MEASUREMENTS* 


SCALE  AND  TRANSFER  ACTUATOR  COMMANDS  AND  ACTUATOR 


SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSV( 20) ,OYFSV( 20) »ODUMVA( 20) ,ODUMVB( 20 ) t ODUMVC ( 20 ) , 

1  OUFV( 20) ,OUFAV( 20) ,MSEOVO( 20) ,MODVO( 20) t IDUMVOC 10) fOUFERV( 20) t 

2  OASV( 3) 

COMMON/ S I GTWO/OXFSVtOYFSVtODUMV A tODUMVB, ODUMVC ♦OUFVtOUFAVfOXF, 

1  MSEOVO,NSENSOTNWAITO»NPOSOfNMINTQ»NMEASOtNFSENOtNTIMSOaSENSr 

2  NFLGA,NFLGB,NFLGC tNFLGD,NFLGE,NTYPOOtNTYPIOtMODVOtNOtNRO^ 

3  ODTtODTE,OUFMAXtMOOEO»OGA»OGB»OUFERV, IDUMVOtOASVtNCVELO 
SIGMA  2  DIMENSION  STATEMENTS  END 

GO  T0(  U2t3,4t5)  , NENTRY 

INPUT  DATA 
RETURN 

INITIALIZATION 

SOGA=OGA 

RETURN 

TRANSFER  ACTUATOR  COMMANDS  AND  MEASURE  ACTUATER  OUTPUTS 


1=0 
1  =  1  +  1 

IF( I-NRQ)2308f 2308,2303 
LIMIT  OUFV( I ) 

IF( OUFV( I)-0UFMAX)2304,2304,2305 
IF( OUFV(  I  )+OUFMAX) 2306, 2307, 2307 
OUFV{ I )=OUFMAX 
GO  TO  2307 

2306  OUFV( I )=-OUFMAX 

:  RETURN  TO  SIGMA  5  TO  MODEL  ACTUATORS 

IGO=MODVO(  8) 

GO  T0( 2301,2311 ), IGO 
NFLGA=7 
NFLGR=I 
IGO=MODVO(  12) 

GO  TO  {  2302,2310) , IGO 
C^^^’J'^EAM  SOFTWARE  TEST  CODI 
2302  CALL  ACTMDL(3,I) 

GO  TO  4 


3 

2309 


2308 

2304 

2305 


2307 


2301 


IF  M0DV0(8)=1 


:  3}:  *  a}:  * a}<  #  ;jc  #  :it « :«c ♦ 
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EAM11660 

EAM11670 
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SOFTWARE  TEST  COD  I  1 1 680 


2310 

RETURN 

EAM11690 

C 

EAM11700 

4 

GO  TO  2309 

EAM11710 

C 

EAM11720 

2311 

CONTINUE 

EAM11730 

C 

INSERT  SOFTWARE  TO  MEASURE  ACTUATOR  POSITION 

EAM11740 

C 

OUFAV(  I  )=ACTUATOR  POSITION 

EAM11750 

C 

CALCULATE  THE  ACTUATOR  ERROR 

EAM11760 

DA=OUFV{  I)-OUFAV(  I) 

EAM11770 

C 

ACCUMULATE  THE  ERROR  IN  OUFERV 

EAM11780 

OUFeRV(  I  )=OUFeRV{  I  )+0DT’«^0GB^DA 

EAM11790 

c 

FORM  THE  ACTUATOR  CONTROL 

EAM11800 

DA=OGA^(  DA+OUFERV(  I ) ) 

EAM11810 

c 

SET  ACTUATOR  CONTROL  EQUAL  TO  0  IF  NENTRY=5 

EAM11820 

GO  T0( 2402 t 2402, 2402 f 2402, 2401 ) , NENTRY 

EAM11830 

2401 

0A=0*0 

EAM11840 

2402 

CONTINUE 

EAM11850 

C 

INSERT  SOFTWARE  TO  TRANSFER  ACTUATOR  COMMANDS  TO  ACTUATORS 

EAM11860 

C 

OA  IS  THE  INPUT  EOT  THE  I TH  ACTUATOR 

EAM11870 

GO  TO  2309 

EAM11880 

2303 

NFLGA=6 

EAM11890 

RETURN 

EAM11900 

C 

EAM11910 

C 

FREEZE  ACTUATORS 

EAM11920 

5 

0GA~0*0 

EAM11930 

NFLGA=:6 

EAM11940 

RETURN 

EAM11950 

C 

EAM11960 

C 

RELEASE  ACTUATOR  OUTPUTS 

EAM11970 

C. 

EAM11980 

6 

OGA=SQGA 

EAM11990 

NFLGA=6 

EAM12000 

RETURN 

EAM12010 

c 

EAM12020 

c 

EAM12030 

END 

EAM12040 

SUBROUTINE  ACTMDL ( NENTRY 1 1  ENTRY ) 

C 

C  SIMPLIFIED  ACTUATOR  MODEL  FOR  TESTING  THE  EAM  SOFTWARE  PACKAGE 

C 

C  SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  START 

DIMENSION  XFV(  20) tUFV(  20) t ASCALV( 20) tFSCALV( 20 ) t XFSV( 20 ) t 

1  YFSV(  20) »XFRV( 20) tDUMV(  20) tUFAV( 20) tDUMVAC  20 ) t GA INV (  10 ) t 

2  GAINM( 1600) f ASV( 3) 

COMMON/BLKEAM/XFVtUFVf ASCALVtFSCALVfXFSVfYFSVfXFRVfDUMVfUFAVr 
1  DUMVAt GAINVfGAINMtASV 
C 

DIMENSION  LACTV<  20) 

COMMON/BKIEAM/LACTV,NCVEL  ^N t NR t NR A^MODE t MODOP tNSNSWT t NTYP I t 
1  NTYPO,NPUNCHtNMAGtNSENStNWAITtNPOS,NMINTtNMEAS»NFSENStNTIMS 


EAM12050 

EAM12060 

EAM12070 

EAM12080 

EAM12090 

EAM12100 

EAM12110 

EAM12120 

EAM12130 

EAM12140 

EAM12150 

EAM12160 

EAM12170 

EAM12180 
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C 

DIMENSION  AM( 400) T AIM( 400) 

COMMON/BLKMFC/AMt AIM 
C 

DIMENSION  IAV(  30  )  1 1  BV(  30 )  » I  C V(  30 )  1 1 DV(  30  )  » I  E V(  30 )  ♦ 

1  JCXV( 10) t JCPV( 10) , JICPV( 10) tCXV( 10) tCPV( 10) , ICPV( 10) » 

2  CXM( 100) ,CPM( 100) »ICPM( 100) fNMCXV( 10) ,NMCPV( 10) tNMICPVI 10) , 

3  M0DV(20) 

C0MM0N/BLKIV/IAV,NIAV, IBV,NIBV,ICV,NICV, IDV,NI0V,IEVtNIEV,NX,NU» 

1  NCXVtNCPVtNICPV, JCXV,  JCPV t J ICP Vt CX V »CPV t I CPV t CXM , CPM, I CPM t 

2  NMCXV,NMCPV,NMICPV f MODV 
C 

DIMENSION  AMM( 400) tWV( 20) ,DUMBV( 20) ,XFAV( 20) tXF0V( 20) 
COMMON/BLKMDL/AMMt WVTDUMBVtXFAVtXFDV 
SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  END 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  0XFSV(  20) ,0YFSV(  20) tOOUMVA( 20) tODUMVB( 20) ,00UMVC( 20) t 

1  0UFV( 20) ,0UFAV(  20) tMSE0V0(  20) ,MOOVQ(  20) , IDUMVOl  10) tOUFERVI  20) t 

2  0ASV( 3) 

COMMON/SIGTWO/OXFSVtOYFSVtODUMVAtODUMVBtODUMVCfOUFVfOUFAVtOXFt 

1  MSEOVO,NSENSOtNWAITOtNPOSO,NMINTOtNMEASOtNFSENO,NTIMSO,L  SENSt 

2  NFLGAtNFLGBtNFLGCf NFLG0,NFLGE,NTYP00tNTYPI0fM0DV0»NQ,NR0» 

3  ODTtODTEf OUFMAX,MODEO,OGA,OGBtOUFERV, IDUMVOtOASVtNCVELO 
SIGMA  2  DIMENSION  STATEMENTS  END 

DIMENSION  TACTV( 20) tAGAMV( 20) , APHI V( 20) 

1000  FORMAT! 7H  ACTMDL ) 

1001  FORMAT! lOXtSHAPHIV) 

1002  FORMAT! 10X»5HAGAMV) 

I=IENTRY 

GO  TO! 1 t2t3) tNENTRY 

INPUT  DATA 

1  PRINT  1000 

CALL  MXRNP! TACTVt 1 »NR,4) 

RETURN 

INITIALIZATION 

CONSTRUCT  THE  ACTUATOR  MODELS 

2  DO  2001  J=UNR 
APHI V! J )=0.0 
AGAMV!J)=1,0 

IF! TACTV! J) ) 2001 , 2001 ,2002 
2002  DA=-! DT/TACTV!  J) ) 

C  CALCULATE  THE  STATE  TRANSITION  MATRICES  FOR  THE  ACTUATORS 

APHIV! J)=EXP! DA) 

C  CALCULATE  THE  INPUT  TRANSITION  MATRICES  FOR  THE  ACTUATORS 

AGAMV!  J)==1.0«APHIV!  J) 

2001  CONTINUE 

PRINT  1001 

CALL  MXRNP! APHIV, l,NRt3) 

PRINT  1002 

CALL  MXRNP! AGAMV,1,NR,3) 

RETURN 

C 
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C  SIMULATION 

C  OBTAIN  UFV  FROM  THE  SIGMA  2 

3  UFV(  I )  =OUFV<  I )  /ASCAL V(  I ) 

C  SIMULATE  THE  ACTUATOR  DYNAMICS  IN  THE  SIGMA  5 

UFAV(  I)=APHIV(  I)*UFAV(  I)+AGAMV(  I) 

C  TRANSFER  NEW  VALUE  OF  UFV  TO  SIGMA  2 

OUFAV( I)=UFAV( I)*ASCALV( I ) 

RETURN 

C 

END 
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SUBROUTINE  E AMCS( NENTRY ) 

SUBROUTINE  TO  REALIZE  THE  REAL  TIME  CONTROL  SYSTEM  FOR  THE 
EXPERIMENTAL  ACTIVE  MIRROR 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSV( 20) ,0YFSV( 20) tODUMVA(  20) tODUMVBi 20) tOOUMVC( 20) t 

1  0UFV( 20) tOUFAV( 20) ,MSEOVO( 20) tMODVOi 20), IDUMVOC 10) ,OUFERV( 20) , 

2  OASVC  3) 

COMMON/SIGTWO/OXFSV,OYFSV,ODUMVAtODUMVB,ODUMVC,OUFVfOUFAV,OXF, 

1  MSEOVO,NSENSO,NWAITO,NPOSOTNMINTOfNMEASO,NFSENO,NTIMSOtLSENSt 

2  NFLGAtNFLGBfNFLGC,NFLGDtNFLGE,NTYPOO,NTYPIOfMODVOtNO,NRO, 

3  ODT,ODTE,OUFMAX,MODEO,OGA,OGBtOUFERV, IDUMVO ,OASV ,NCVELO 
SIGMA  2  DIMENSION  STATEMENTS  END 

1002  FORMAT( 16H  INITIALIZE  MFCS) 

1005  FORMATCllH  START  MFCS) 

1003  FORMAT( lOH  BEGIN  RUN) 

1009  FORMAT! 15H  SEQUENCE  ERROR) 

1010  FORMAT! IIH  MODE  NOT  =,12) 

GO  TO!  1,2,3,3,5,6,7,8,9,10,11,12,13,14,15, 16, 17, 18, 19), NENTRY 

INPUT  DATA 

1  RETURN 

INITIALIZATION 

2  WRITE! NTYPOO, 1003) 

NFLGB=1 

CALL  TYPCON!!) 

CALL  ACTCM0!2) 

INITIALIZE  ACTIVE  MIRROR 
9  WRITE! NTYPOO, 1002) 

M00ES=1 
NFLGA=1 
IGOA=MODVO! 12) 

GO  TO  ! 2205,2206) ,IGOA 
2206  RETURN 
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C 

2205  CALL  TYPC0N( 2) 

10  IF(  M0DE0--M0DES)2229t2230,2229 

2229  WRITE( NTYPOOtlOlO)  MODES 
GO  TO  2 

2230  JSENS=1 
IG0A=M0DVQ(  12) 

ISENS=1 

LSENS=MSE0V0( NO) 

MSENS=0 

0XF=0*0 

SXF=0,0 

SXFXF=0*0 

C  SET  ACTUATOR  INTEGRAL  COMPENSATORS  TO  ZERO 

DO  2232  I=ltNR0 

2232  OUFERVI I )=0.0 

C  SET  STORAGE  VECTORS  FOR  SXF  AND  SXFXF=0 

DO  2134  I=ltNO 
ODUMVBI  I  )=^0.0 
2134  ODUMVCI I )=0*0 

IF( NENTRY-8) 2233 .223  If  2233 

2231  NFLGA=6 
RETURN 

C 

C  START  ACTIVE  MIRROR 

2233  M00ES=2 

WRITE( NTYPOOf 1005) 

NFLGA=:2 

GO  T0<  2235.2237) flGOA 

2235  CALL  TYPCON( 2) 

11  IF(  M0DE0-M00ES)2f 2236f 2 

2236  NFLGA=6 

2237  RETURN 

CONTROL  SYSTEM  COMPUTATIONS 
ESTABLISH  STARTING  TIME 
3  CALL  REALT( T) 

TSTORE=T 

ITIMS^O 

PERFORM  CONTROL  LOOP  OPERATIONS  FOR  NTIMSO  CYCLES 

2400  ITIMS=ITIMS+1 

IF( ITIMS-NTIM$0)2401f 2401. 2402 

NORMAL  TERMINATION  TO  SIGMA  5  FOR  FURTHER  INSTRUCTIONS 
240?  IGO=MODVO(9) 

GO  T0( 2236.2702) . IGG 

FIGURE  SENSOR  CONTROL  STRUCTURE 

MEASURE  FIGURE  ERRORS  EVERY  NSENSO^DT  SECONDS 

2401  JSENS=JSENS-1 

GO  T0{ 2301.2302.2303. 2304.2305) . I  SENS 

2301  IF( JSENS)2310. 2310. 2390 
2310  ISENS=2 

JSENS=NSENSO 

JWAIT=NWAITO 

MSENS=NO 

12  GO  TO  2390 

C  WAIT  NWAITO^DT  SECONDS  FOR  THE  ACTUATOR  OUTPUTS  TO  STABILIZE 

2302  JWAIT=:JWAIT--1 

IF( JWAIT) 2320. 2320. 2390 
2320  ISENS=3 
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C  FREEZE  ACTUATOR  POSITIONS 

CALL  ACTCMD(5) 

C  RETURN  TO  SIGMA 

C  IF  MODVO(  8)=1 

IGO=MODVO(8) 

GO  TO( 2329,7) ,IGO 
2329  NFLGA=4 

2322  GO  TO  ( 2323,2324) ,IGOA 


5  SOFTWARE  TO  UPDATE  MIRROR  MODEL  OUTPUTS 
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2324  RETURN  EAM13960 

C***«*EAM  SOFTWARE  TEST  CODI NG>l‘*****************************************EAM13970 
2323  CALL  MIRMOL(3,I)  EAM13980 

GO  TO  7  EAM13990 

Ci)c««:(c;<c0AM  SOFTWARE  TEST  GODI NG********************************’*'*********EAM14000 


C  TRANSFER  POSITION  COORDINATES  TO  IMAGE  DISSECTOR 

7  CONTINUE 

2303  LSENS=MSEOVO(  MSENS) 

C  POSITION  FIGURE  SENSOR  IMAGE  DISSECTOR 

NFLGA=5 
NFLGB=LSENS 

GO  TO  ( 2325,2326) ,IGOA 
2326  RETURN 
C 

2325  CALL  FIGSENI  2,LSENS) 

13  JWAIT=NPOSQ 
ISENS=4 
GO  TO  2390 

C  WAIT  NPOSO*DT  FOR  THE  MEASUREMENT  POSITION  TO  STABILIZE 

2304  JWAIT=JWAIT-1 

IF( JWAIT)2340, 2340, 2390 
2340  ISENS=5 

JWAIT=NMINTO 
JMEAS=NMEASO 
KMEAS=0 
SXF=0.0 
SXFXF=0.0 
GO  TO  2390 


EAM14010 

EAM14020 

EAM14030 

EAM14040 

EAM14050 

EAM14060 

EAM14070 

EAM14080 

EAM14090 

EAM14100 

EAM14110 

EAM14120 

EAM14130 

EAM14140 

EAM14150 

EAM14160 

EAM14170 

EAM14180 

EAM14190 

EAM14200 

EAM14210 

EAM14220 

EAM14230 


C 

C 


TAKE  NMEASO  MEASUREMENTS  AT  INTERVALS  OF  NMINTO’sOT  SECONDS  AT  EACHEAM14240 


2305 


2350 


2328 

2327 

14 


MEASUREMENT  POINT 

JWAIT=JWAIT-1 

IF( JWAIT)2350, 2350, 2390 

TAKE  FIGURE  ERROR  PHASE  MEASUREMENT 

NFLGA=16 

NFLGB=LSENS 

GO  T0( 2327,2328)  ,IGOA 

RETURN 

CALL  FIGSENI 3,LSENS) 

JMEAS=JMEAS-1 

KMEAS=KMEAS+1 

SXF=SXF+0XF 

SXFXF=SXFXF+OXF*OXF 

JWAIT=NM1NT0 

CHECK  TO  SEE  IF  NMEASO  MEASUREMENTS  HAVE  BEEN  MADE 
I FIJMEAS) 235 1,235 1,2390 


EAM14250 

EAM14260 

EAM14270 

EAM14280 

EAM14290 

EAM14300 

EAM14310 

EAM14320 

EAM14330 

EAM14340 

EAM14350 

EAM14360 

EAM14370 

EAM14380 

EAM14390 

EAM14400 

EAM14410 

EAM14420 

EAM14430 

EAM14440 


STORE  THE  SUM  OF  THE  FIGURE  MEASUREMENTS  IN  QDUMVB 

2351  ODUMVBI  LSENS)  =  SXF  ^ 

STORE  THE  SUM  OF  THE  SQUARES  OF  THE  FIGURE  MEASUREMENTS  IN  OOUMVC  EAM14450 
ODUMVCI LSENS)=SXFXF  EAM14460 

RETURN  TO  SIGMA  5  TO  FILTER  FIGURE  ERROR  DATA  EAM14470 

IF  M0DV0(7)=1  CALCULATE  THE  FIGURE  ERROR  AFTER  EVERY  NMEASO  EAM14480 
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C  MEASUREMENTS  EAM14490 

IGO=MODVO(7)  EAM14500 

GO  T0(  2356t 5 ) » I GO  EAM14510 

2356  CONTINUE  EAM14520 

NFLGA=8  EAM14530 

GO  T0(  2357»2354) tlGOA  EAM14540 

2354  RETURN  EAM14550 

C  EAM14560 


C*4***EAM  SOFTWARE  TEST  C0DING********4**********>!‘******#**#**«!("*****#*xtEAM14570 


2357  CALL  MAINA(6)  EAM14580 

GO  TO  5  EAM14590 

C*****EAM  SOFTWARE  TEST  COD ING*#********************#**##’(t**#*#*»*#***»#EAM14600 
C  ENTRY  POINT  TO  EAMCS  AT  COMPLETION  OF  FIGURE  ERROR  COMPUTATIONS  EAM14610 

5  CONTINUE  EAM14620 

MSENS=MSENS-1  EAM14630 

ISENS=3  EAM14640 

C  TERMINATE  THE  MEASUREMENT  MODE  IF  THE  FIGURE  ERROR  HAS  BEEN  '  EAM14650 

C  OBTAINED  FOR  ALL  NO  POSITIONS  EAM14660 

IF( MSENS)2352, 2352, 2303  EAM14670 

2352  1SENS=1  EAM14680 

EAM14690 

RETURN  TO  SIGMA  5  TO  CALCULATE  NEW  FIGURE  CONTROL  EAM14700 

15  NFLGA=17  EAM14710 

NFLGC=1  EAM14720 

GO  TO  (2358,2359) ,IG0A  EAM14730 

2359  RETURN  EAM14740 

EAM14750 

18  NFLGA=18  EAM14760 

RETURN  EAM14770 

EAM14780 

SOFTWARE  TEST 

2358  CALL  MAINA(7)  EAM14800 

CALL  MAINA(5)  EAM14810 


***^^EAM  SOFTWARE  TEST  COD 


ENTRY  POINT  TO  EAMCS  AT  COMPLETION  OF  CONTROL  COMPUTATION 
6  CONTINUE 

PRINT  OUTPUT  DATA  ON  THE  REMOTE  10  DEVICE  EVERY  NTYO  TIMES  THE 
CQNTROL  IS  CALCULATED 
GO  T0( 2361,2362) tNFLGC 
2362  ODUMVAI 2)=ITIMS«00T 

CALCULATE  CONTROL  SYSTEM  OPERATING, T IME 
CALL  TYPCON( 9) 

2361  CONTINUE 

RELEASE  ACTUATORS 
CALL  ACTCMD(  6) 

SET  POSITION  ACTUATOR  COUNTER  TO  NCVELO 
ICVEL=NCVELO 

FREEZE  ACTUATORS  AFTER  NCVELO  CONTROL  CYCLES 
2390  IG0=M0DV0(6) 

GO  T0<  2396,2397), IGO 
2397  ICVEL=ICVEL-1 

IF< ICVEL)2399, 2399, 2396 
FREEZE  ACTUATORS 
2399  CALL  ACTCMO( 5) 

TRANSFER  COMMANDS  TO  ACTUATOR  CONTROL  SYSTEM 
2396  NFLGA=9 

GO  TO  ( 2393,2394), IGOA 


EAM14830 

EAM14840 

EAM14850 

EAM14860 

EAM14870 

EAM14880 

EAM14890 

EAM14900 

EAM14910 

EAM14920 

EAM14930 

EAM14940 

EAM14950 

EAM14960 

EAM14970 

EAM14980 

EAM14990 

EAM15000 

EAM15010 

EAM15020 

EAM15030 

EAM15040 

EAM15050 

EAM15060 

EAM15070 

EAM15080 

EAM15090 

EAM15100 
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2394  RETURN 


2393  CALL  ACTCMD( 3) 

16  CONTINUE 

STORE  IMPORTANT  PARAMETERS  IN  DUMVA  FOR  DIAGNOSTIC  PURPOSES 
EVERY  CYCLE 
ODUMVA(  7)=LSENS 
ODUMVAI  8)  =  JMEAS 
ODUMVA(  9)=JWAIT 
ODUMVA(  10)=JSENS 
ODUMVA(  11  )=:ISENS 


C 

C 

C 


2391 


2395 


EAM15110 

EAM15120 

EAM15130 

EAM15140 

EAM15150 

EAM15160 

EAM15170 

EAM15180 

EAM15190 

EAM15200 

EAM15210 

EAM15220 

EAM15230 

EAM15240 

EAM15250 

EAM15260 

EAM15270 

EAM15280 

EAM15290 

EAM15300 

EAM15310 


17 


IGO=MOOVO( 9) 

GO  TO( 2400t2700) 


IGO 


TRANSFER  EAM  SYSTEM  VARIABLES  TO  SIMULATION  SYSTEM  ROUTINES  FOR 
FOR  DISPLAY  AND  FURTHER  PROCESSING  IF  M0DV0(8)=1 
IGO=MODVO( 8) 

GO  TO( 2391»2392) t IGO 
NFLGA=10 
NFLGB=LSENS 
GO  TO( 2392t2395) , IGOA 
RETURN 

SOFTWARE  TEST 

2392  CALL  FSMDL  (  5 ,L SEN S )  EAM15330 

SOFTWARE  TEST 

C  EAM15350 

EAM15360 
EAM15370 
EAM15380 
EAM15390 
EAM15400 
EAM15410 
EAM15420 
EAM15430 
EAM15440 
EAM15450 
EAM15460 
EAM15470 
EAM15480 
EAM15490 
EAM15500 
EAM15510 
EAM15520 
EAM15530 
EAM15540 
EAM15550 
EAM15560 
EAM15570 
EAM15580 
EAM15590 
EAM15600 
EAM15610 
EAM15620 
EAM15630 


INTERRUPT  FIGURE  CONTROLf  FREEZE  ACTUATORS  AND  TRANSFER  TO 
TO  TYPCON  FOR  INSTRUCTIONS  IF  M00E0=3 
2700  GO  T0(  2703t2703,2702) f MODEO 
STORE  CURRENT  TIME 
2702  CALL  REALT( STA) 

FREEZE  ACTUATOR  OUTPUTS 
CALL  ACTCMD(5) 

CALL  ACTCMDO) 

TRANSFER  TO  TYPCON  FOR  FURTHER  INSTRUCTIONS 

NFLGA=21 

CALL  TYPCON! 2) 

RESET  TIME 
CALL  REALT( T) 

TSTORE=T-STA+TSTORE 
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CYCLE  TIME  CONTROL 
2703  CALL  REALT( T) 

IF(  T+ODTE-TSTORE) 2703,2701 1 2701 
2701  TSTORE=TSTORE+ODT 
GO  TO  2400 


C 

C 


INITIALIZE 
GO  TO  2230 

END 


EAMCS  WITHOUT  INTERROGATING  TYPCON 
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SUBROUTINE  F I GSEN( NENTRY ♦ I  )  EAM15640 

C  EAM15650 

C  SUBROUTINE  TO  MEASURE  THE  FIGURE  ERROR  XFV( 1)  AT  A  DISCRETE  POINT  EAM15660 

C  COORDINATES  XF SV( I) t YFSV( I )  ON  THE  REFLECTING  SURFACE  OF  THE  MIRR0EAM15670 

C  EAM15680 

C  SIGMA  2  DIMENSION  STATEMENTS  START  EAM15690 

DIMENSION  OXFSV( 20) tOYFSVI 20) ,QOUMVAI 20) tODUMVBI 20) tODUMVCI 20) t  EAM15700 

1  OUFV( 20) fOUFAVI 20) tMSEOVOI 20) tMODVOI 20) f IDUMVOI 10) ^OUFERVI 20) t  EAM15710 

2  OASV( 3)  EAM15720 

COMMON/S IGTWO/OXFSVtOYFSVfODUMVAtODUMVBtODUMVCtOUFVtOUFAVfOXF,  EAM15730 

1  MSEOVOfNSENSO,NWAITO,NPOSOtNMINTOf NMEASOtNFSENQtNTIMSOtLSENSt  EAM15740 


EAM15750 
EAM15760 
EAM15770 
EAM15780 
EAM15790 
EAM15800 
EAM15810 
EAM15820 
EAM15830 
EAM15840 
EAM15850 
EAM15860 
EAM15870 
EAM15880 
EAM15890 
EAM15900 
EAM15910 
EAM15920 
EAM15930 
EAM15940 
EAM15950 
EAM15960 
EAM15970 
EAM15980 
EAM15990 
EAM16000 
EAM16010 
EAM16020 
EAM16030 
EAM16040 

C5ft:«*34e«EAM  SOFTWARE  TEST 

2304  CALL  FSMDL(3,I)  BAM16060 

GO  TO  4  EAM16070 

SOFTWARE  TEST  COD 


c 

EAM16090 

2302 

CONTINUE 

EAM16100 

C 

OXF  IS  THE  FIGURE  SENSOR  PHASE  DETECTOR  FILTER  OUTPUT 

EAM16110 

C 

INSERT  ATOD  SOFTWARE  HERE  TO  INTERROGATE  FIGURE  SENSOR 

EAM16120 

4 

CONTINUE 

EAM16130 

NFLGA-6 

EAM16140 

RETURN 

EAM16150 

C 

EAM16160 

END 

EAM16170 

2  NFLGAtNFLGBfNFLGC,NFLGD»NFLGETNTYPOOtNTYPIO»MODVOrNOtNRQ, 

3  ODT,ODTE,OUFMAX,MODeO,OGA,QGBfOUFERVt IDUMVOtOASVtNCVELO 

C  SIGMA  2  DIMENSION  STATEMENTS  END 

C 

GO  TOI It2t3t4) tNENTRY 
C 

C  INPUT  DATA  AND  INITIALIZATION 

1  RETURN 
C 

C  TRANSFER  THE  MEASUREMENT  POSITION  COORDINATES  TO  THE  IMAGE 

C  DISSECTOR 

C  SKIP  POSITION  COORDINATE  TRANSFER  IF  M0DV(8)=:1 

2  IG0=M00V0(8) 

GO  10{  2201t2202) t IGO 
2202  X=OXFSV( I) 

Y=OYFSV{  I  ) 

C  X  AND  Y  ARE  THE  COORDINATES  OF  THE  MEASUREMENT  POSIT^ION 

C  INSERT  DTOA  SOFTWARE  HERE  TO  POSITION  IMAGE  DISSECTOR 

2201  NFLGA=6 
RETURN 
C 

C  SAMPLE  THE  FIGURE  SENSOR  PHASE  DETECTOR  FILTER  OUTPUT 

C  RETURN  TO  SIGMA  5  TO  MODEL  FIGURE  SENSOR  IF  M0DV0(8)=1 

3  IG0=M0DV0(8) 

GO  T0( 2301»2302) ,IGO 
2301  NFLGA==11 
NFLGB=I 
IGO=MODVO( 12) 

GO  TO  { 2304^2303) , IGO 
2303  RETURN 
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SUBROUTINE  FSMOL ( NENTRY 1 1  ENTRY  ) 

SIMPLIFIED  FIGURE  SENSOR  MODEL  TO  TEST  THE  EAM  SOFTWARE  PACKAGE 
MODEL  SIMULATES  THE  FIGURE  SENSOR  FOR  INPUT  ERRORS  IN  THE  RANGE 
FROM  -3/4  TO  +3/4  WAVELENGTHS 

SIGMA  5  TYPE  A  DIMENSION  STATEMENTS  START 

DIMENSION  XFV( 20) tUFV( 20),ASCALV( 20)tFSCALV( 20)tXFSV( 20 )t 

1  YFSV( 20) ,XFRV( 20) ,OOMV( 20) ,UFAVI 20) tOUMVAI 20) tGAINVI 10) , 

2  GAINM(  1600)  tASV(  3) 

COMMON/BLKEAM/XFVtUFV,ASCALVtFSCALVtXFSV,YFSVtXFRV,DOMVtUFAVT 
1  DUMVATGAINVtGAINM,ASV 

DIMENSION  LACTV( 20) 

COMMON/BKIEAM/LACTVtNCVEL  t N , NR ,NR A ,MODE ,MODOP ,NSNSWT tNTYPI t 
1  NTYPOtNPUNCH,NMAG,NSENStNWAITtNPOStNMINTTNMEAS,NFSENSf NTIMS 

DIMENSION  AM(  400) , AIM( 400) 

COMMON/BLKMFC/AMtAIM 

COMMON/BLKT/TtOTtDTHtDTPLOT,OTNOIS,TPHI ,TPRNTtTEND 

DIMENSION  IAV(  30) tIBV( 30) ,ICV( 30) tIDV{  30) tIEV(  30) t 

1  JCXV( 10) t JCPV(  10) tJICPVI  10) tCXVi  10) tCPV(  10) t ICPV( 10) t 

2  CXM(  100) ,CPM(  100) ,ICPM(  100) tNMCXVI  10) tNMCPVI  10 ) tNMICPV(  10 ) , 

3  MODV{ 20) 

COMMON/BLKIV/IAVfNI AV, IBV»NIBV,ICV,NICV, I DV ,N I DV , I EV ,N I E V ,NX , NU t 

1  NCXVfNCPVtNICPV, JCXVt  JCPVt J ICPVt CXVtCPVt ICPVtCXM,CPMt ICPM, 

2  NMCXVfNMCPVtNMICPVtMODV 

DIMENSION  XV( 50) tNAMVI  50) tDUMVl 20) tOUMMI  400) tPARV( 50) , IPARV(  50) , 
1  SXV( 50) tSPARV( 50) tISPARV( 50) , IDUMV( 20) 
COMMON/BLKSIM/XV»NAMVtDUMVtDUMM,PARV, IPARVfSXVt SPARVt I 5PARV, 

1  IDUMV 

DIMENSION  AMM( 400) tWV( 20) ,0UMBV( 20) ,XFAV{ 20) t XFDV( 20) 
COMMON/BLKMDL/AMM ,WVtOUMBVf XFAVtXFDV 
SIGMA  5  TYPE  A  DIMENSION  STATEMENTS  END 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSV( 20) tOYFSVI 20) tODUMVA( 20) ,ODUMVB( 20) tODUMVC( 20) t 

1  OUFVI 20) tOUFAVI 20) tMSEOVOI 20)tM0DV0(  20) t IDUMVO( 10) tOUFERV(  20) , 

2  QASV( 3) 

COMMON/ S I GTWO/OXFSV,OYFSV,OOUMVA,ODUMVB,OOUMVCtOUFVtOUFAVtOXFt 

1  MSEOVO,NSENSO»NWAITO,NPOSOTNMINTO,NMEASOtNFSENQtNTIMSO,LSENS, 

2  NFLGA,NFLGBf NFLGCfNFLGDtNFLGEtNTYPOOfNTYPIOtMODVOtNOtNRO, 

3  ODTtODTETQUFMAX,MODEOTOGAtOGBtOUFERV, IDUMVOtOASVtNCVELO 

C  SIGMA  2  DIMENSION  STATEMENTS  END 

C 

1000  FORMAT!  6H  FSMDL ) 

1001  FORMAT!  1  OX 1 5HF SPH I ♦ lOX 1 5HFSG AM t / » 2F 15 *6 ) 

C 

I=rIENTRY 

GO  TO! It2t3t4t5t6) tNENTRY 
C 

C  INPUT  DATA 

1  PRINT  1000 


EAH16180 

EAM16190 

EAM16200 

EAM16210 

EAM16220 

EAM16230 

EAM16240 

EAM16250 

EAM16260 

EAM16270 

EAM16280 

EAM16290 

EAM16300 

EAM16310 

EAM16320 

EAM16330 

EAM16340 

EAM16350 

EAM16360 

EAM16370 

EAM16380 

EAM16390 

EAM16400 

EAM16410 

EAM16420 

EAM16430 

EAM16440 

EAM16450 

EAM16460 

EAM16470 

EAM16480 

EAM16490 

EAM16500 

EAM16510 

EAM16520 

EAM16530 

EAM16540 

EAM16550 

EAM16560 

EAM16570 

EAM165B0 

EAM16590 

EAM16600 

EAM16610 

EAM16620 

EAM16630 

EAM16640 

EAM16650 

EAM16660 

EAM16670 

EAM16680 

EAM16690 

EAM16700 

EAM16710 

EAM16720 

EAM16730 

EAM16740 
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C  READ  IN  DATA  FOR  FIGURE  SENSOR  NOISE  MODEL 

CALL  RANDPDC  2 fFSNSI G»FSTFLT ,DA ,DA t DA ,DA, OAt 4 ) 

CALL  IRANOP( ItIRANDtIAtlAtlAt IAtIA,IA,4) 

IB=N+3 

IRANDS=IRAND 
GAINV<  4)=FSTFLT 
GAINV( 6)=FSNSIG 
RETURN 

C 

C  INITIALIZATION 

2  CONTINUE 
IRANO=IRANDS 
FSNSIG=GAINV{ 6) 

FSTFLT=GAINV(4) 

FSFLTO=0,0 

FSN0IS=0.0 

FSPD0=0,0 

NN0IS=0 

SSN0IS=:0.0 

C  CALCULATE  FIGURE  SENSOR  FILTER  PARAMETERS 

IF( FSTFLT)2005t2005t2004 

2004  DA=-OT/FSTFLT 
FSPHI=EXP( DA) 

GO  TO  2006 

2005  FSPHI=0.0 

2006  FSGAM=1.0~FSPHI 
PRINT  lOOltFSPHItFSGAM 
RETURN 

SAMPLE  FIGURE  SENSOR  FILTER  OUTPUT 
TRANSFER  FIGURE  ERROR  TO  SIGMA  2  SOFTWARE 

3  OXF=FSFLTO 
DOMV{ 14)=FSFLT0 
DOMV(  12)=XFAV(  I  ) 

RETURN 

C 

C  CALL  TO  FSMDL  AT  THE  END  OF  EACH  FIGURE  MEASUREMENT 

4  CONTINUE 

C  CALCULATE  THE  FIGURE  SENSOR  ERROR 

DOMV(  15)=D0MV(  4)-XFAV(  I  ) 

RETURN 

C 

C  CALL  TO  FSMDL  EVERY  DT 

5  CONTINUE 

C  CALCULATE  NEW  NOISE  INPUT 

CALL  GAUSS( IRANDf FSNSIGf0*0,FSN0IS) 

C  ADD  NOISE  TO  THE  ACTUAL  VALUE  OF  FIGURE  ERROR 

DA=XFAV( I )+FSNOIS 

C  CALCULATE  THE  STANDARD  DEVIATION  OF  THE  FIGURE  SENSOR  NOISE 

SSNOIS=:SSNOIS+FSNOIS«FSNOIS 
NN0IS=NN0IS+1 

D0MV(  17)=:S0RT(  SSNOI  S/NNOI  S  ) 

DOMV(  18)  =  FSN0IS 

C  USE  A  LINEAR  FIGURE  SENSOR  MODEL  IF  M0DV(3)=1 

IG0=M0DV(3) 

GO  T0( 2000t2003) t IGO 

C  CALCULATE  PHASE  DETECTOR  OUTPUT 


EAM16750 

EAM16760 

EAM16770 

EAM16780 

EAM16790 

EAM16800 

EAM16810 

EAM16820 

EAM16830 

EAM16840 

EAM16a50 

EAM16860 

EAM16870 

EAM16880 

EAM16890 

EAM16900 

EAM16910 

EAM16920 

EAM16930 

EAM16940 

EAM16950 

EAM16960 

EAM16970 

EAM16980 

EAM16990 

EAM17000 

EAM17010 

EAM17020 

EAM17030 

EAM17040 

EAM17050 

EAM17060 

EAM17070 

EAM17080 

EAM17090 

EAM17100 

EAM17110 

EAM17120 

EAM17130 

EAM17140 

EAM17150 

EAM17160 

EAM17170 

EAM17180 

EAM17190 

EAM17200 

EAM17210 

EAM17220 

EAM17230 

EAM17240 

EAM17250 

EAM17260 

EAM17270 

EAM17280 

EAM17290 

EAM17300 

EAM17310 
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2003  IF(  0A«SC7N(  da ) -0 •25)  2000^2000 1 2001 

2001  FSP0O=DA-0.50«SGN( DA) 

GO  TO  2002 

2000  FSP00=:DA 

C  FILTER  THE  PHASE  DETECTOR  OUTPUT 

2002  FSFLT0=FSPHI=«'FSFLT0+FSGAM*FSPD0 

C  GENERATE  XV  FOR  PLOTTING  RESULTS 

IG0=M0DV(7) 

GO  T0( 2200,2201) , IGO 
FIGURE  SENSOR  DEVELOPMENT 
XFACT 

2200  XV( 1)=D0MV( 12) 

XFMEAS 

XV(  2)  =  DOMV(  4) 

FSERR 

XV( 3)=D0MV( 15) 

FSOUT 

XV(  4)  =  D0MV{  14) 

XFMN 

XV(  5)  =  DOMV(  1 ) 

XFSIG 

XV( 6)=D0MV( 2) 

AMBIG 

XV(  7)=D0MV(  3) 

XFSW 

XV( 8)=00MV( 5) 

FSNOIS 

XV(  9)  =  D0MV<  18) 

RETURN 

EAM  CONTROL  SYSTEM  DEVELOPMENT 
PINDEX 

2201  XV( 1 )=DOMV( 13) 

RPINDEX 

XV{ 2)=D0MV( 19) 

FSPINDEX 

XV(  3)=D0MV(  16) 

XFVISEE  STATEMENT  2301) 

UFAVtUFV 

DO  2202  J=1,NR 

K=J+IR 

XV(  K)=UFAV(  J) 

L=K+NR 

2202  XV(  L)=UFV(  J) 

DO  2203  J=7,ll 

2203  DOMV( J)=ODUMVA(  J) 

RETURN 

CALL  TO  FSMSL  AT  THE  END  OF  EACH  COMPLETE  SET  OF  MEASUREMENTS 
6  CONTINUE 

C  CALCULATE  AND  STORE  THE  PERFORMANCE  INDEX 

CALL  PINOX( 3,PINDEXf XFV) 

DOMV( 13)=PINDEX 

C  CALCULATE  THE  FIGURE  SENSOR  PERFORMANCE  INDEX 

DOMV( 16)=0.0 
DO  2300  J=1,N 
DA=XFV( J)-XFAV(  J) 

2300  DOMVI  16)=D0MV(  16)+DA’«^DA 


EAM17320 

EAM17330 

EAM17340 

EAM17350 

EAM17360 

EAM17370 

EAM17380 

EAM17390 

EAM17400 

EAM17410 

EAM17420 

EAM17430 

EAM17440 

EAM17450 

EAM17460 

EAM17470 

EAM174B0 

EAM17490 

EAM17500 

EAM17510 

EAM17520 

EAM17530 

EAM17540 

EAM17550 

EAM17560 

EAM17570 

EAM17580 

EAM17590 

EAM17600 

EAM17610 

EAM17620 

EAM17630 

EAM17640 

EAM17650 

EAM17660 

EAM17670 

EAM17680 

EAM17690 

EAM17700 

EAM17710 

EAM17720 

EAM17730 

EAM17740 

EAM17750 

EAM17760 

EAM17770 

EAM17780 

EAM17790 

EAM17800 

EAM17810 

EAM17820 

EAM17830 

EAM17840 

EAM17850 

EAM17860 

EAM17870 

EAM17880 


no  non  o  non  onono 


DOMVI  16)  =  D0MVI  16)/N 

EAM17890 

DOMVI  16)=S0RTI  DOMVI  16)  ) 

EAM17900 

c 

CALCULATE  THE  TRUE  VALUE  OF  THE  PERFORMANCE  INDEX 

EAM17910 

CALL  PINDXI 3tD0MVI  19) ,XFAV) 

EAM17920 

GO  TOI  2302t2301  )  t  IPLOT 

EAM17930 

GO  TOI 2302,2301) , IPLOT 

EAM17930 

c 

STORE  XFV  FOR  PLOTTING 

EAM17940 

2301 

DO  2303  J=1,N 

EAM17950 

K=J+3 

EAM17960 

2303 

XVt  K)=XFVI  J) 

EAM17970 

2302 

RETURN 

EAM179R0 

C 

EAM17990 

END 

EAM18000 

SUBROUTINE  M A I NA( NENTRY ) 

SUPERVISORY  PROGRAM  FOR  THE  EXPERIMENTAL  ACTIVE  MIRROR 
RESIDENT  IN  THE  SIGMA  5  COMPUTER 

SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  START 

DIMENSION  XFV(  20)  »UFV( 20) ,ASCALV( 20) ,FSCALV<  20 ) , XF SV ( 20 ) , 

1  YFSV( 20) ,XFRV( 20) ,DUMV( 20) ^UFAVI 20) ,DUMVAI 20 ) tGAINV( 10) , 

2  GAINM( 1600) ,ASV( 3) 

COMMON/BLKEAM/XFVTUFVtASCALV,FSCALVtXFSV,YFSV,XFRV,OUMVtUFAV, 

1  DUMVA,GAINVtGAINM,ASV 

DIMENSION  LACTVl 20) 

COMMON/BKIEAM/LACTVtNCVEL ,N,NRtNRAtMnDEtMODOPf NSNSWTtNTYPI t 
1  NTYPO,NPUNCHtNMAGtNSFNS,NWAITtNPOStNMINTtNMEAS,NFSENStNTIMS 

DIMENSION  AMI  400)  »AIM( 400) 

COMMON/BLKMFC/AM,AIM 

DIMENSION  I  AVI  30) t IBVI 30) , ICVI 30) , IDVI 30) , lEVI 30) , 

1  JCXVI  10) T JCPVI  10) , JICPVI  10) tCXVI  10) tCPVI  10) , ICPVI  10) t 

2  CXMI 100) tCPMI 100) T ICPMI 100) ,NMCXVI 10) tNMCPVI 10) tNMICPVI 10) t 

3  M00VI20) 

COMMON/BLKIV/I AV,NIAV, IBV^NIBV, ICVtNICVt IDVtNIDVt IEV,NIEVtNX»NUt 

1  NCXV,NCPVtNICPV, JCXV,  JCPV, JICPV,CXV,CPVt ICPVtCXM,CPM,ICPM» 

2  NMCXV,NMCPV,NMICPVtMODV 

DIMENSION  AMMI 400) tWVI 20) ♦DUMBVI 20) tXFAVI 20) tXFDVI 20) 

COMMON/BLKMDL/AMM,WVtDlJMBVtXFAVTXFDV 

SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  END 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSVI 20) .OYFSVI 20) tODUMVAI 20) ,QDUMVBI 20) tODUMVCI 20) , 

1  OUFVI 20) tOUFAVI 20) tMSEOVOI 20) ,MODVOI  20) , IDUMVOI 10) tOUFERVI  20) i 

2  OASVI 3) 

COMMON/ S I GTWO/OXFSV,OYFSVtODUMVA,ODUMVB,ODUMVCtOUFV,OUFAV,OXFf 

1  MSEOVOtNSENSOtNWAITO,NPOSOtNMINTOtNMEASOtNFSENOtNTIMSOtLSENS, 

2  NFLGAtNFLGB,NFLGCtNFLGDtMFLGE,NTYPOO,NTYPIO^MODVO,NOtNROt 

3  ODT,ODTE,OUFMAXfMODEO,OGAtOGB,OUFERV, IDUMVOfOASVfNCVELO 
SIGMA  2  DIMENSION  STATEMENTS  END 

DIMENSION  DUMVCI 20),MSE0VI 20) 


EAM18010 

EAM18020 

EAM18030 

EAM1B040 

EAM18050 

EAM18060 

EAM18070 

EAM18080 

EAM18090 

EAM18100 

EAMIRIIO 

EAM18120 

EAM1B130 

EAM18140 

EAM18150 

EAM18160 

EAM18170 

EAM1R180 

EAM18190 

EAM18200 

EAM18210 

EAM18220 

EAM18230 

EAM18240 

EAM18250 

EAM1R260 

EAM18270 

EAM182R0 

EAM18290 

EAM18300 

EAM18310 

EAM1R320 

EAM1R330 

EAM18340 

EAM18350 

EAM18360 

EAM18370 

EAM18380 

EAM18390 

EAM18400 

EAM18410 

EAM18420 


195 


ooo  on  no  noon 


1000  FORMAK  6H  MAINA) 

1001  FORMAK /tSTH  EAM  FIGURE  CONTROL  SYSTEM  PARAMETERS,/) 

1002  FORMAT(/,35H  EAM  FIGURE  ERROR  FILTER  PARAMETERS,/) 

1003  F0RMAT(/,20H  HARDWARE  MODEL  DATA,/) 

1004  FORMAT(/,23H  PERFORMANCE  INDEX  DATA,/) 

1011  FORMAT!  IHl) 

1201  FORMAT! lOX, 5HTSENS , lOX , 5HTWAI T, 1 IX , 4HTP0S, lOX, 5HTMINT, 
1  4X,11HTMEAS/TSENS) 

1400  FORMAT! lOX, 5HNSENS , lOX, 5HNWAI T, 1 IX ,4HNP0S, lOX, 5HNMINT, 
1  9X,6HNFSENS,10X,5HNTIMS) 

1401  FORMAT!  7115) 

1402  FORMAT! 11X,4HGAIN,/,F15. 6) 

GO  TO! 1,2,3,3,5,6,7) ,NENTRY 

INPUT  DATA 
1  PRINT  1000 

READ  DATA  FOR  THE  SIGMA  2  SOFTWARE 
PRINT  1001 

CALL  IRANDP! 6,NTIMSO,NWAIT,NPOS,NMINT,NMEAS,NTYO, I A,4) 
CALL  RANDPD! 6,DT ,DTE ,GAINV(  1 ) ,OGA ,0GB , UFMAX ,DA , 4 ) 

PRINT  1002 

CALL  RANDPD! 2, SIGL IM,SLPMN,DA,DA,DAtDA,DA,4) 

CALL  IMXRNP! MSEOV, 1,N,4) 

PRINT  1003 
CALL  FSMDL! 1,1) 

CALL  ACTMDL! 1,1 ) 

CALL  MIRMDL! 1,1 ) 

CALL  MIRMDL!  2,1) 

READ  DATA  FOR  MAINB  AND  MAINC 
CALL  MAINB!  1 ) 

CALL  MAINC! 1) 

PRINT  1004 

CALL  PINDX!  1,PINDEX,XFV) 


EAH18430 
EAM18440 
EAM184S0 
EAM18460 
EAM18470 
EAM1840O 
EAM18490 
10X,5HTMEAS,EAM18500 
EAMieSlO 
10X,5HNMEAS,EAM18520 
EAM18530 
EAM18540 
EAM18550 
EAM18560 
EAM18570 
EAM18380 
EAM18590 
EAM18600 
EAM18610 
EAM18620 
EAM18630 
EAMI8640 
EAM18650 
EAM18660 
EAM18670 
EAM18680 
EAM18690 
EAM18700 
EAM18710 
EAM18720 
EAM18730 
EAM18740 
EAM18750 
EAM18760 
EAM18770 
EAM18780 
EAM18790 


2 


C 


FSCALE=FSCALV( 1 ) 

GO  TO  2206 

INITIALIZATION 

CONTINUE 

DUMV! 2)=NWAIT*DT 
DUMV! 3)=NP0S^DT 
DUMV! 4)=NMINT^DT 

DUMV! 5)=DUMV( 2)+N«! DUMV!  3 ) +NMEAS^DUMV(  4) ) 

NFSENS=NWAIT+N=«'!  NP0S+NMEAS«NM  I  NT  ) 

NSENS==NFSENS 
DUMV!  1)=NSENS=«^DT 
TSENS=DUMV! 1) 

DUMV! 6)=DUMV! 5)/DUMV! 1) 

PRINT  OUT  THE  CONTROL  SYSTEM  TIMING  CHARACTERISTICS 
PRINT  1201 

CALL  MXRNP! DUMV, 1,6,3) 

MULTIPLY  GAIN  BY  TSENS  TO  MAKE  THE  DYNAMIC  RESPONSE  INDEPENDENT 
OF  TSENS 

GAINV!  1)=GAINV!  D’J'TSENS 

DIGITAL  FILTER  INITIALIZATION 

AMBIG=0*0 

SXFMN=0.0 

XFLAST=0.0 


EAM18800 

EAM18810 

EAM18820 

EAM18830 

EAM18840 

EAM18850 

EAM18860 

EAM18870 

EAM18880 

EAM18890 

EAM18900 

EAM18910 

EAM18920 

EAM18930 

EAM18940 

EAM18950 

EAM18960 

EAM18970 

EAM18980 

EAM18990 

EAM19000 

EAM19010 

EAM19020 

EAM19030 


onnoo  oonooo  on  on 


XFMN=0.0 

XFSIG=0,0 

XFSW=0*0 

CONTROL  SYSTEM  INITIALIZATION 
00  2201  I^^ltN 
XFV(  I  )  =  0.0 
XFRVI  I  )  =  0.0 
0UMV(  I  )=0*0 
0UMVA(  I)=0,0 
2201  DUMVC(I)=0.0 

CALL  FSMDL(  6,1 ) 

DO  2203  1=1,20 
2203  DUMVI  I )  =  0*0 

PRINT  IMPORTANT  PARAMETER  VALUES  FOR  CURRENT  RUN 
PRINT  1400 

PRINT  1401,NFSENS,NWAIT,NP0S,NMINT,NMEAS,NFSENS,NTIMS 
PRINT  1402,GAINV{  1 ) 


INITIALIZE  HARDWARE  MODELS 
CALL  ACTMDL(2,I) 

CALL  MIRMDLI  2,1 ) 

INITIALIZE  THE  PERFORMANCE  INDEX  GENERATOR 
CALL  PINDXI 2,PINDEX,XFV) 

TRANSFER  DATA  TO  THE  SIGMA  2  SOFTWARE 
2206  0DT=DT 

0DTE=DTE 

OUFMAX=UFMAX^ASCALV(  1  ) 

NO=N 

NR0=NR 

DO  2204  1  =  1, N 
OXF$V( I )=XFSV( I )*PSCALE 
OYFSVI  I)=YFSV(  I)*PSCALE 
MSEOVOI I)=MSE0V( I) 

ODUMVAl  n=o*o 
OOUMVBI  n=0*0 

2204  OOUMVCI  I )  =  0.0 
DO  2205  1=1, NR 
UFV(  I )=0.0 
UFAV(I)=0.0 
OUFV( I )=0.0 

2205  OUFAVI  I  )  =  0.0 
NSENSO=NSENS 
NWAITO=NWAIT 
NPOSQ=NPOS 
NMINTO=NMINT 
NMEAS0=NMEAS 
NFSENO=NFSENS 
NTIMS=NTIMSO 
NTIMSO=NTIMS 
ITY0=0 

FSCALE=.FSCALV{1) 

RETURN 

OPERATION 
3  RETURN 

CALCULATE  FIGURE  CONTROLS 


EAM19040 

EAM19050 

EAM19060 

EAM19070 

EAM19080 

EAM19090 

EAM19100 

EAM19110 

EAM19120 

EAM19130 

EAM19140 

EAM19150 

EAM19160 

EAM19170 

EAM19180 

EAM19190 

FAM19200 

EAM19210 

EAM19220 

EAM19230 

EAM19240 

EAM19250 

EAM19260 

EAM19270 

EAM19280 

EAM19290 

EAM19300 

EAM19310 

EAM19320 

EAM19330 

EAM19340 

EAM19350 

EAM19360 

EAM19370 

EAM19380 

EAM19390 

EAM19400 

EAM19410 

EAM19420 

EAM19430 

EAM19440 

EAM19450 

EAM19460 

EAM19470 

EAM19480 

EAM19490 

EAM19500 

EAM19510 

EAM19520 

EAM19530 

EAM19540 

EAM19550 

EAM19560 

EAM19570 

EAM19575 

EAM19580 

EAM19590 

EAM19600 

EAM19610 

EAM19620 

EAM19630 

EAM19640 
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C  CALCULATE  THE  INITIAL  ALIGNMENT  CONTROLS  IF  M0DV(4)=1 

5  IG0=M0DV<4) 

GO  T0( 2501,2502) »IGO 

2501  CALL  MAINC( 3) 

RETURN 

C 

C  GENERATE  XFRV 

2502  CONTINUE 
J=0 

DO  2506  I=ltN 

GO  TO  I  2508,2509,2509) ,MODOP 
2508  IF( LACTV( I ) )2507,2506,2507 
2507  J=J+1 

XFRV( J)=XFV( I ) 


EAM19650 

EAM19660 

EAM19670 

EAM19680 

EAM19690 

EAM19700 

EAM19710 

eAM19720 

EAM19730 

EAM19740 

EAM19750 

EAM19760 

EAM19770 

EAM19780 


GO  TO  2506 

2509  XFRV( I )=XFV( I ) 

2506  CONTINUE 

C 

C  DUMVC=GAINM*XFRV 

CALL  MPRD( GAINM, XFRV, DUMVC, NR, NRA, 0,0,1 ) 

C  DUMVC=DUMVC*GAINV( 1 ) 

DO  2510  1=1, NR 

2510  DUMVC(  I)=OUMVC(  I  )’«^GAINV(  1) 

C  INTEGRAL  COMPENSATION 

C  UFV=OUMVC+UFV 

DO  2520  1=1, NR 
UFV(  I )=DUMVC(  I )+UFV(  I ) 

2520  OUFVI  I  )=UFV(  I  )*ASCALV(  I  ) 

AM  SOFTWARE  TEST  COOl 

C  STORE  IMPORTANT  PARAMETERS  IN  FSMDL  AT  TERMINATION  OF 

C  MEASUREMENT  SEQUENCE 

CALL  FSMDL( 6,LSENS) 


EAM19790 

EAM19800 

EAM19810 

EAM19820 

EAM19830 

EAM19840 

EAM19850 

EAM19860 

EAM19870 

EAM19880 

EAM19890 

EAM19900 

EAM19910 

EAM19920 

EAM19930 

EAM19940 

EAM19950 

EAM19960 


SOFTWARE  TEST  CODI E AM19970 
C  PRINT  OUTPUT  DATA  ON  REMOTE  10  DEVICE  EVERY  NTYO  TIMES  EAM19980 
C  THE  CONTROL  IS  COMPUTED  EAM19990 


ITY0==ITY0-1 

IF( 1TY0)2521, 2521, 2522 

2521  ITYO=NTYO 
NFLGC=2 

CALL  PINDXI 3,0DUMVA{ 1),XFV) 

2522  RETURN 


C 

C  DIGITAL  FILTER  FOR  FIGURE  SENSOR  OUTPUTS 

C 

6  GO  TO  2703 

2702  I  FI  XFSIG-SIGL IM ) 2332 , 2332 , 233 1 
C  FIGURE  ERROR  COMPUTATION  IF  XFSIG  IS  LESS  THAN  SIGLIM 


EAM20000 

EAM20010 

EAM20020 

EAM20030 

EAM20040 

EAM20050 

EAM20060 

EAM20070 

EAM20080 

EAM20090 

EAM20100 

EAM20110 


C  CORRECT  FIGURE  ERROR  FOR  AMBIGUITY  EAM20120 

2332  XFV( LSENS)=XFMN+AMBIG  EAM20130 

C  CALCULATE  THE  NEAREST  SWITCHING  BOUNDARY  EAM20140 


XFSW=0.25*SGN( XFLAST) 

C  STORE  CURRENT  VALUE  OF  XF 

XFLAST=XFV( LSENS) 

GO  TO  2360 

C  FIGURE  ERROR  COMPUTATION  IF  XFSIG 

2331  XFV( LSENS)=XFSW-SLPMN*XFMN 
C  CALCULATE  AMBIGUITY  FACTOR 

IF{ SGNI XFMN^SXFMN) ) 2353 , 2353, 2360 
2353  AMB I G=AMBIG-»-SGNrSXFMN >56^0.50 
2360  CONTINUE 

C  STORE  IMPORTANT  PARAMETERS  IN  DUMV 


EAM20150 

EAM20160 

EAM20170 

EAM20180 

IS  GREATER  THAN  SIGLIM  EAM20190 

EAM20200 

EAM20210 

EAM20220 

EAM20230 

EAM20240 

FOR  FURTHER  USE  IN  OTHER  ROUT INE AM20250 
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o  o  o  n  o  o  o 


OUMVn)=XFMN  6AM20260 

DUMV(  2)  =  XFSIG  EAM20270 

OUMV(  3)=AMBIG  EAM20280 


DUMV(  4)  =  XFV(LSENS)  EAM20290 

DUMV(5)=XFSW  EAM20300 

DUMV(  6)  =  XFLAST  EAM20310 

C  STORE  LAST  VALUE  OF  XFMN  EAM20320 

SXFMN=XFMN  EAM20330 


C****^EAM  SOFTWARE  TEST  COO  I  4^20340 


CALL  FSMDH  4tLSENS) 


EAM20350 


C^**^=^EAM  SOFTWARE  TEST  COD  I  2 0360 

C  M0DV(7)=1  FOR  FIGURE  SENSOR  TEST,  2  FOR  MIRROR  FIGURE  CONTROL  MEAM20370 

IGO=MOOV( 7)  EAM20380 

GO  TOI 2704,2705) ,IGO  EAM20390 

2704  RETURN  .  EAM20400 

EAM20410 

CALCULATE  THE  FIGURE  ERRORS  AT  THE  TERMINATION  OF  ALL  ME ASUREMENTSE AM20420 


IF  THE  MIRROR  FIGURE  CONTROL  MODE  IS  SELECTED  I.E*  M0DV(7)=2 
7  MSENS=N+1 

IG0=M00V<  7) 

GO  T0( 2700, 2705), IGO 

2700  RETURN 

2705  MSENS=MSENS-1 

IF( MSENS)2700, 2700, 2701 

2701  LSENS=MSEOV( MSENS) 

CALCULATE  XFMN  AND  XFSIG  AT  ALL  THE  MEASUREMENT  POINTS 
2703  XFMN=ODUMVB(LSENS)^FSCALE 

XFSIG=ODUMVC(  LSENS  )=^FSCALE*FSCALE 

XFSIG=XFSIG-XFMN<'XFMN 

XFMN=XFMN/NMEAS 

XFSIG=:XFSIG/NMEAS 

XFSIG=S0RT( XFSIG) 

TRANSFER  TO  THE  DIGITAL  FIGURE  ERROR  FILTER 
SKIP  FILTERING  IF  M0DV(4)=1 
IG0=M00V( 4) 

GO  T0( 2360,2702) , IGO 
C 

END 


EAM20430 

EAM20440 

EAM20450 

EAM20460 

EAM20470 

EAM204e0 

EAM20490 

EAM20500 

EAM20510 

EAM20520 

EAM20530 

EAM20540 

EAM20550 

EAM20560 

EAM20570 

EAM20580 

EAM20590 

EAM20600 

EAM20610 

EAM20620 

EAM20630 

EAM20640 
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SUBROUTINE  M AI NB( NENTRY ) 

SUBROUTINE  FOR  TYPEWRITER  CONTROL  OF  THE  EXPERIMENTAL  ACTIVE 
MIRROR 

SIGMA  5  TYPE  C  DIMENSION  STATEMENTS  START 
DIMENSION  XV(  1813) 

COMMON/BLKEAM/XV 

DIMENSION  XFV( 20) tUFV( 20) t ASCALVI  20) t FSCALVI  20) t XFSV(  20) , 

1  YFSV( 20) tXFRV( 20) tDUMV{ 20) tUFAV( 20) tDUMVA( 20 ) ,GA INV( 10 ) t 

2  GAINM(  1600) tASV(  3) 

EQUIVALENCE  (  XV<  1),XFV(  1 ) ) ,  (  X V(  2 1 ) , UF V(  1 ) ) t ( XVC 41 ) t ASC AL V(  1 ) ) t 

1  (  XV(  61)  ,FSCALV(  1)  )  ,(  XV(  81)  f  XFSV(  1 )  )  ,(  XV(  101 )  tYFSVC  1 )  )  t 

2  {  XV(  121 ) tXFRV(  1 )  ) f( XV(  141 ) ,DUMV(  1 )  ) ,( XV(  161 ) tUFAV( 1) ) , 

3  (  XV(  181)  ,DUMVA(  1)  )  t(  XV(  201)  ,GAINVI  1 )  )  »(  XV{  21 1 )  ,GAINM(  1 )  )  t 

4  ( XV( 1811) fASVC 1 ) ) 

DIMENSION  LACTV( 20) 

COMMON/BKIEAM/LACTV,NCVEL ,NtNR,NRA,MOOE»MODOP,NSNSWT,NTYPU 
1  NTYPOtNPUNCHtNMAGfNSENStNWAITtNPOSrNMINTtNMEAStNFSENStNTIMS 

DIMENSION  AMI  400) , AIM( 400) 

COMMON/BLKMFC/AM,AIM 

DIMENSION  I  AVI  30) ,IBV<  30) t ICV(  30) , IDV( 30) r lEVI 30) t 

1  JCXVI  10) , JCPV(  10) , JICPVI  10) tCXVI  10) t CP VI  10) , ICPVI  10) t 

2  CXMI  100) tCPMI  100) tICPMI  100) tNMCXVl  10) ,NMCPV{  10) tNMICPVI 10) t 

3  MODVI 20) 

COMMON/BLKIV/I AVtNI AV, I BV t N I BV ♦ I CV t N I C V t I DV t N I DV » I E V t N I E V t NX t NU t 

1  NCXV,NCPV,NICPV,JCXVt  JCPVt JICPV,CXV,CPV, ICPVtCXM,CPM, ICPM, 

2  NMCXVfNMCPVtNMICPV,MODV 

DIMENSION  AMMI  400) tWVI  20) ♦ DUMB VI  20) tXFAVI 20) »XFDV( 20) 

COMMON/ BLKMOL/AMM,WV»DUMBVtXFAVtXFDV 
SIGMA  5  TYPE  C  DIMENSION  STATEMENTS  END 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSVI  20) ,OYFSVI  20) tODUMVAl  20) tODUMVBI 20) tODUMVCI 20) t 

1  OUFVI 20)t0UFAV( 20) tMSEQVOI 20) ,MODVOI 20) » IDUMVOI 10 ) , OUFERVI 20 ) , 

2  OASVI  3) 

COMMON/SIGTWO/OXFSVtOYFSVtODUMVAtODUMVB,ODUMVCtOUFV,OUFAVtOXF, 

1  MSEOVOtNSENSOtNWAITOtNPOSOtNMINTOtNMEASOtNFSENOtNTIMSOtLSENSt 

2  NFLGA,NFLGBTNFLGCTNFLGDrNFLGErNTYPOO,NTYPIOtMODVO,NOtNROt 

3  ODT,ODTE,OUFMAX»MODEO,OGA,OGBtOUFERVt IDUMVOtOASV,NCVELO 

C  SIGMA  2  DIMENSION  STATEMENTS  END 

C 

DIMENSION  NAMVI 17) 

C 

DATA  NAMVI  1) tNAMVl 2 ) , NAMVI 3) , NAMVI  4) t NAMVI 5) » N AMVI 6 ) »N AMVI 7 ) , 

1  NAMVI 8 ) t NAMVI 9) , NAMVI 10) t NAMVI 11 ) ,NAMVI 12) »NAMV{ 13) t NAMVI 14) , 

2  NAMVI 15) tNAMVI 16) tNAMVI 17) 

3  /4HXV  t4HAM  t4HAIM  t4HXFV  , 4HXFRV » 4HUF V  , 4HUF AVt 4HASCV, 

4  4HFSCVf4HXFSV,4HYFSVt4HDUMVt4HGANM,4HGANVt4HLACV,4HMDV0,4HDEND/ 
C 

1000  FORMATI 6H  MAINB) 

C 

GO  TOI  It2t3, 4, 5t6) , NENTRY 


EAM20650 

EAM20660 

EAM20670 

EAM20680 

EAM20690 

EAM20700 

EAM20710 

EAM20720 

EAM20730 

EAM20740 

EAM20750 

EAM20760 

EAM20770 

EAM20780 

EAM20790 

EAM20800 

EAM20810 

EAM20820 

EAM20830 

EAM20840 

EAM20850 

EAM20860 

EAM20870 

EAM20880 

EAM20890 

EAM20900 

EAM20910 

EAM20920 

EAM20930 

EAM20940 

EAM20950 

EAM20960 

EAM20970 

EAM20980 

EAM20990 

EAM21000 

EAM21010 

EAM21020 

EAM21030 

EAM21040 

EAM21050 

EAM21060 

EAM21070 

EAM21080 

EAM21090 

EAM21100 

EAM21110 

EAM21120 

EAM21130 

EAM21140 

EAM21150 

EAM21160 

EAM21170 

EAM21180 

EAM21190 

EAM21200 

EAM21210 
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onn  no  on  on  non  o  noon  on 


INPUT  DATA 
PRINT  1000 
NNAMV=17 
RETURN 

INITIALIZATION 
RETURN 

CATALOG  AND  CHECK  INPUT  NAME  FROM  TYPCON 

3  DO  2302  I=lfNNAMV 

IF(  NFLGC-NAMV(  I ) ) 230? , 2301 , 2302 

2301  LL=I 

GO  TO  2303 

2302  CONTINUE 

SUBMITTED  NAME  NOT  IN  CATALOG 
NFLGC=3 

CALL  MARKC  I»24f4t4,3) 

CALL  TYPCON(4)  AND  RETURN  THROUGH  MAINB(3) 

RETURN 

IDENTIFY  THE  NUMBER  OF  INDICES 

2303  GO  TO  (  2310»2320,2320t2310,2310f 2310t2310, 2310, 2310t2310, 2310, 
1  2310,2320,2310,2310,2310,2304) ,LL 

REQUEST  NEW  MODE  IF  NFLGC=4HDEND 

2304  NFLGC=4 
RETURN 

RETURN  TO  SIGMA  2  TO  REQUEST  INDEX  VALUES 
2310  NFLGC=1 

CALL  MARK! 1,24,5,4,4) 

RETURN 

CALL  TYPCON(5)  AND  RETURN  THROUGH  MAINB(4) 

2320  NFLGC=2 

CALL  MARK( 1,24,6,4,4) 

RETURN 

CALL  TYPC0N(6)  AND  RETURN  THROUGH  MAINB(4) 

MODIFY  AND/OR  EXTRACT  THE  VALUE  OF  THE  INTERROGATED  VARIABLE 

4  V=0DUMVA(1) 

II=NFLGD 

JJ=NFLGE 

ICHNG^NFLGC 

GO  TO  ( 2401,2402,2403,2404,2405,2406,2407,2408,2409,2410,2411, 
1  2412,2413,2414,2415,2416,2417) ,LL 

2401  CALL  CHNG(  I.CHNG,V,XV(  1 1  )  ) 

V=XV(  ID 

GO  TO  2500 

2402  CALL  ELMA(  ICHNG, AM , 1 1 , J J , V ,NR ) 

CALL  ELMAi 2,AM,II,JJ,V,NR) 

GO  TO  2500 

2403  CALL  ELMAI  ICHNG, A IM , 1 1 , J J , V ,NR ) 

CALL  ELMA(2,AIM,II,JJ,V,NR) 

GO  TO  2500 

2404  CALL  CHNGII CHNG, V, XF VI  1 1 ) ) 


EAM21220 

EAM21230 

EAM21240 

EAM21250 

EAM21260 

EAM21270 

EAM21280 

EAM21290 

EAM21300 

EAM21310 

EAM21320 

EAM21330 

EAM21340 

EAM21350 

EAM21360 

EAM21370 

EAM21380 

EAM21390 

EAM21400 

EAM21410 

EAM21420 

EAM21430 

EAM21440 

EAM21450 

EAM21460 

EAM21470 

EAM21480 

EAM21490 

EAM21500 

EAM21510 

EAM21520 

EAM21530 

EAM21540 

EAM21550 

EAM21560 

EAM21570 

EAM21580 

EAM21590 

EAM21600 

EAM21610 

EAM21620 

EAM21630 

EAM21640 

EAM21650 

EAM21660 

EAM21670 

EAM21680 

EAM21690 

EAM21700 

EAM21710 

EAM21720 

EAM21730 

EAM21740 

EAM21750 

EAM21760 

EAM21770 

EAM21780 
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V=XFV(II) 

GO  TO  2500 

2405  CALL  CHNG(  ICHNG t V  » XFRVU  I )  ) 

V=XFRV(  II  ) 

2406  CALL  CHNG(ICHNG»V»UFV(  ID) 

V=UFV(  I  I ) 

GO  TO  2500 

2407  CALL  CHNGUCHNG,  V, UF AV(  1 1  )  ) 

V=UFAV(  I  I ) 

GO  TO  2500 

2408  CALL  CHNG(  ICHNGt V t ASCAL V(  1 1 )  ) 

V=ASCALV(n) 

GO  TO  2500 

2409  CALL  CHNG(  ICHNGt V t FSC AL V(  I  I ) ) 

V=FSCALV{  1 1  ) 

GO  TO  2500 

2410  CALL  CHNG( ICHNGtVtXFSV( II ) ) 

V=XFSV(II) 

GO  TO  2500 

2411  CALL  CHNG(  ICHNGtVtYFSVC  II)  ) 

V=YFSV( II) 

GO  TO  2500 

2412  CALL  CHNG( ICHNGtVtDUMVI II ) ) 

V=DUMV(  1 1 ) 

GO  TO  2500 

2413  CALL  ELMA( ICHNGtGAINMtlltJJtVtNR) 

CALL  ELMA( 2tGAINMtII tJJtVtNR) 

GO  TO  2500 

2414  CALL  CHNGI  ICHNGt  V  tGA I NV(  ID) 

V=GAINV(II) 

GO  TO  2500 

2415  V=LACTV(  I  I ) 

GO  TO  2500 

2416  V=MODVQ( II) 

GO  TO  2500 

2417  RETURN 
C 

2500  ODUMVAI  1)==V 
RETURN 

CALCULATE  AND  TRANSFER  THE  VALUE  OF  THE  PERFORMANCE  INDEX 
TO  THE  SIGMA  2 

5  CALL  PINDX( 3tODUMVA( 1) tXFV) 

RETURN 

C  RETURN  TO  TYPC0N(3) 

C 

6  RETURN 
END 


EAM21790 

EAM21800 

EAM2181D 

EAM21820 

EAM21830 

EAM21840 

EAM21850 

EAM21860 

EAM21870 

EAM21880 

EAM21890 

EAM21900 

EAM21910 

EAM21920 

EAM21930 

EAM21940 

EAM21950 

EAM21960 

EAM21970 

EAM21980 

EAM21990 

EAM22000 

EAM22010 

EAM22020 

EAM22030 

EAM22040 

EAM22050 

EAM22060 

EAM22070 

EAM22080 

EAM22090 

EAM22100 

FAM22110 

EAM22120 

EAM22130 

EAM22140 

EAM22150 

EAM22160 

EAM22170 

EAM22180 

EAM22190 

EAM22200 

EAM22210 

EAM22220 

EAM22230 

EAM22240 

EAM22250 

EAM22260 


202 


ono  o  on  ooo  n  o  o  o  oooo 


SUBROUTINE  MAI NC( N6NTRY  ) 

SUBROUTINE  TO  CALCAJLATE  INITIAL  ALIGNMENT  CONTROLS 

SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  START 

DIMENSION  XFV(  20) ,UFV(  20),ASCALV(  20) ,FSCALV(  20) tXFSV^  20), 

1  YFSV( 20) tXFRV( 20) ,DUMV( 20) ,UFAV(  20) ,DUMVA(  20) ,GAINV(  10) , 

2  GAINM(  1600),ASV(3) 

COMMON/BLKEAM/XFV,UFV,ASCALVtFSCALV,XFSV,YFSVtXFRV,DUMVtUFAVt 
1  DUMVA,GAINVtGAINM,ASV 

DIMENSION  LACTV( 20) 

COMMON/BKIEAM/LACTVtNCVEL ,N,NR,NRA,MODE ,M0D0P ,NSNSWT,NTYPI , 

1  NTYPO,NPUNCH,NMAG,NSENS,NWAITtNPOS,NMINT,NMEAS,NFSENS,NTIMS 

DIMENSION  AM( 400) , AIM( 400) 

COMMON/BLKMFC/AM, AIM 

DIMENSION  IAV{  30) , I BV(  30) ,ICV(  30) ,IDV(  30),IEV(  30) ♦ 

1  JCXV( 10),JCPV< 10),JICPV( 10)tCXV( 10),CPV( 10),ICPV( 10), 

2  CXM( 100) tCPM( 100) , ICPM( 100) ,NMCXV( 10) ,NMCPV( 10) ,NMICPV( 10) , 

3  M0DV( 20) 

COMMON/BLKIV/I AVtNI AVt IBVtNIRV, ICV,NICV, IDV,NIDV, IEV,NIEV,NX ,NU, 

1  NCXV,NCPV,NICPV, JCXV,  JCPV, J ICPV,CXV,CPV, ICPV,CXM, CPM, ICPM, 

2  NMCXV,NMCPV,NMICPV,MOOV 

DIMENSION  AMM(  400) ,WV(  20) ,0UMBV( 20) ,XFAV( 20) ,XFDV( 20) 
COMMON/BLKMDL/AMM, WV,DUMBV,XFAV,XFDV 
SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  END 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSV( 20) tQYFSV( 20) ,ODUMVA( 20) ,00UMVB( 20) tODUMVCC 20) , 

1  OUFV( 20) ,0UFAV{  20) ,MSEOVD(  20) ,MnDVO(  20) , IDUMVO(  10) ,OUFERV( 20) , 

2  OASV(  3) 

COMMON/SIGTWO/OXFSVtOYFSV tODUMVA,OOUMVB,ODUMVCfOUFVtOUFAV,OXF, 

1  MSEOVO,NSENSO,NWAITO,NPOSO,NMINTO,NMEASO,NFSENO,NTIMSO,LSENS, 

2  NFLGA,NFLGB,NFLGCtNFLGD,NFLGE,NTYPOQTNTYPIO,MODVO,NO,NRO, 

3  ODTtODTE,OUFMAX,MODEO,OGA,OGB,OUFERVt IDUMV0,0ASV,NCVEL0 
SIGMA  2  DIMENSION  STATEMENTS  END 

DIMENSION  NHCV( 2) fNICV( 2) ,SXFSV( 9) , SYFSV( 9) ,SUFV( 9) rDELUV( 2) , 

1  SASV( 3)  ,LREFAV( 9) ,SMXV( 9) ,SMYV( 9) 

1000  FORMAT( •  MAINC* ) 

1001  FORMAT(/,»  INITIAL  ALIGNMENT  CONTROL  SYSTEM  DATAM 

1002  FORMATS /,•  AMBIGUITY  SENSOR  MODEL  DATA') 

1003  FORMAT(/,'  SLEW  CONTROL  SYSTEM  DATA') 

1004  FORMAT!/,'  TILT  CONTROL  SYSTEM  DATA') 

1005  FORMAT!/,'  POSITION  ACTUATOR  DATA') 

GO  TO! 1,2,3) ,NENTRY 

INPUT  DATA 
1  PRINT  1000 
PRINT  1001 

C  READ  ACTUATOR  INDICES 

CALL  IMXRNP(LREFAV, 1,9,4) 


EAM22270 

EAM22280 

EAM22290 

EAM22300 

EAM22310 

EAM22320 

EAM22330 

EAM22340 

EAM22350 

EAM22360 

EAM22370 

EAM22380 

EAM22390 

EAM22400 

EAM22410 

EAM22420 

EAM22430 

EAM22440 

EAM22450 

EAM22460 

EAM22470 

EAM22480 

EAM22490 

EAM22500 

EAM22510 

EAM22520 

EAM22530 

EAM22540 

EAM22550 

EAM22560 

EAM22570 

EAM22580 

EAM22590 

EAM22600 

EAM22610 

EAM22620 

EAM22630 

EAM22640 

EAM22650 

EAM22660 

EAM22670 

EAM22680 

EAM22690 

EAM22700 

EAM22710 

EAM22720 

EAM22730 

EAM22740 

EAM22750 

EAM22760 

EAM22770 

EAM22780 

EAM22790 

EAM22800 

EAM22810 

EAM22820 

EAM22830 
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C  READ  ACTUATOR  POSITIONS 

CALL  MXRNP( SMXVt 1,9,4) 

CALL  MXRNP( SMYV, 1,9,4) 

C  READ  AMBIGUITY  SENSOR  MODEL  DATA 

PRINT  1002 

CALL  RANDPO( 3,BSMP,BSDP,DELU,DA,DA,DA,DA,4) 

C  READ  SLEW  CONTROL  SYSTEM  DATA 

PRINT  1003 

CALL  IRANDP( 2 , NHM , NI M , I A , I  A, I  A, I  A, I A , 4 ) 

C  READ  TILT  CONTROL  SYSTEM  DATA 

PRINT  1004 

CALL  IRANDP( 2 ,NT1LT ,NCTILT, I  A, I  A, I  A, I  A, I A,4) 

CALL  RANDPD( 1 , GT IL T , DA , DA, DA , DA , DA, DA , 4 ) 

C  READ  POSITION  ACTUATOR  DATA 

PRINT  1005 

CALL  IRANDPC  1 ,NCV EL , I  A , I A , I  A , I  A , I  A , I  A ,4 ) 

NCVELO^NCVEL 

INITL=1 

RETURN 

C 

C  INITIALIZATION 

2  INITL:=2 

C  SET  ALL  CONTROLS  TO  ZERO 

DO  2100  1=1, NR 
UFV<  I  )  =  0.0 
OUFV( I )=0*0 

2100  SUFV(I)=0.0 

C  TILT  CONTROL  SYSTEM  INITIALIZATION 

IT1LT=0 
JTILT=0 
MDTILT=1 

C  CALCULATE  TILT  MEASUREMENT  POSITION  INCREMENT 

DC=1*0/NTILT 

C  SLEW  CONTROL  SYSTEM  INITIALIZATION 

DO  2101  1=1,2 
NICV(  I  )  =  0 
NHCV(I)=0 
SASV( I )=0.0 

2101  DELUV( I )=DELU 

C  STORE  N  AND  REPLACE  IT  WITH  NEW  VALUE 

NS=N 
N=9 

C  STORE  XFSV  AND  YFSV  IN  SXFSV  AND  SYFSV 

CALL  MCPY( XFSV, SXFSV, 1,9,0) 

CALL  MCPYI YFSV, SYFSV, 1,9,0) 

C  SET  THE  FIRST  NINE  ELEMENTS  OF  XFSV  AND  YFSV  TO  THE  ACTUATOR 

C  POSITIONS 

CALL  MCPY( SMXV, XFSV, 1,9,0) 

CALL  MCPY( SMYV, YFSV, 1,9,0) 

C 

3  GO  T0( 2,2409) , INITL 

2409  IG0=M0DV(5) 

GO  T0( 2410,2420) , IGO 
C 

C  TILT  CONTROL  SYSTEM 

2410  GO  TOI  2310t2320) ,MDTILT 
C 


EAM22840 

EAM22850 

EAM22860 

EAM22870 

EAM22880 

EAM22890 

EAM22900 

EAM22910 

EAM22920 

EAM22930 

EAM22940 

EAM22950 

EAM22960 

EAM22970 

EAM22980 

EAM22990 

EAM23000 

EAM23010 

EAM23020 

EAM23030 

EAM23040 

EAM23050 

EAM23060 

EAM23070 

EAM23080 

EAM23090 

EAM23100 

EAM23110 

EAM23120 

EAM23130 

EAM23140 

EAM23150 

EAM23160 

EAM23170 

EAM23180 

EAM23190 

EAM23200 

EAM23210 

EAM23220 

EAM23230 

EAM23240 

BAM23250 

EAM23260 

EAM23270 

EAM23280 

EAM23290 

EAM23300 

EAM23310 

EAM23320 

EAM23330 

EAM23340 

EAM23350 

EAM23360 

EAM23370 

EAM23380 

EAM23390 

EAM23400 
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C  CALCULATE  CONTROLS  TO  SET  REFERENCE  POSITION  ERRORS  TO  ZERO 

2310  ITILT=ITILT+1 

IF( ITILT-NCTILT)?311, 2311, 2313 

2311  J=1 

DO  2312  1=1,3 
K=LREFAV(J) 

SUFV(  K)  =  SUFV(  K)-«-GTILT«(  XFV(  K)  ) 

UFV(  K)  =  SUFVI  K) 

QUFV(  K)=:UFV(  KI’^'ASCALVC  K) 

2312  J=:J  +  3 
RETURN 

2313  MDTILT=2 
ITILT-1 

GO  TO  2482 

CALCULATE  CONTROLS  TO  SET  SECONDARY  POSITION  ERRORS  TO  ZERO 
2320  ITILT=:ITILT+1 

IF( ITILT-NCTILT)2481, 2481, 2482 

2482  JTILT=JTILT+1 

IF( JTILT-NTILT)2483, 2483, 2484 
INCREMENT  MEASUREMENT  POSITIONS 

2483  DB=:DB+DC 
DA=1.0~DB 
ITILT=0 

J  =  1 

DO  2480  1=1,3 
K  =  J  +  1 
L  =  J+2 

XFSV(  K)  =  XFSV(  J)^DA+SMXV(  K)’J'DB 
YF$V(  K)=YFSV(  J)’«'DA  +  SMYV(  K)«DB 
XFSV(  L  )  =  XFSV(  J)^DA+SMXV(  L 
YFSV(  L)=YFSV(  J  ) ’^^DA  +  SMYVi  L  )’«'0R 

2480  J=J+3 

CALCULATE  THE  CONTROLS  TO  SET  THE  TILT  TO  ZERO 

2481  J=1 

00  2490  1=1,3 
K=J+1 
L  =  J+2 

IA=LREFAV( K) 

IB=LREFAV(L) 

SUFV( IA)=SUFV( IA)+GTILT*XFV( K) 

UFV{ IA)=SUFV( IA) 

OUFV( IA)=UFV( IA)*ASCALV( lA) 

SUFV(  IB)  =  SUFV<  IB)  +  GTILT*XFV( L ) 

UFV{ IB)=SUFV( IB) 

0UFV(  IB)  =  UFV(  IB)*ASCALV(  IB) 

2490  J=J+3 
RETURN 

AMBIGUITY  SENSOR  MODEL 
2420  IG0=M0DV(8) 

GO  T0(  2506, 2505), IGO 
2506  J=2 

DO  2504  1=1,3 
GO  T0( 2501,2502,2503) , I 
2501  DA=XFV(  4)-XFV(  1) 

GO  TO  2504 


EAM23410 

EAM23420 

EAM23430 

EAM23440 

EAM23450 

EAM23460 

EAM23470 

EAM23480 

EAM23490 

EAM23500 

EAM23510 

EAM23520 

EAM23530 

EAM23540 

EAM23550 

EAM23560 

EAM23570 

EAM23580 

EAM23590 

EAM23600 

EAM23610 

EAM23620 

EAM23630 

EAM23640 

EAM23650 

EAM23660 

EAM23670 

EAM23680 

EAM23690 

EAM23700 

EAM23710 

EAM23720 

EAM23730 

EAM23740 

EAM23750 

EAM23760 

EAM23770 

EAM23780 

EAM23790 

EAM23800 

EAM23810 

EAM23820 

EAM23830 

EAM23840 

EAM23850 

EAM23860 

EAM23870 

EAM23880 

EAM23890 

EAM23900 

EAM23910 

EAM23920 

EAM23930 

EAM23940 

EAM23950 

EAM23960 

EAM23970 
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2502  DA=XFV( 7)-XFV( 1) 

GO  TO  2504 

2503  DA=XFV( 7)-XFV( 4) 

2504  ASV(  I  )=BSMP-BS0P^DA=«=DA 
GO  TO  2507 

TRANSFER  THE  AMBIGUITY  SENSOR  OUTPUTS  TO  THE  SIGMA  5 

2505  CALL  MCPY( OASV , ASV t 1 t 3 ♦ 0 ) 

SLEW  CONTROL  SYSTEM 
2507  J=4 

DO  2700  1=1,2 
L  =  J+2 

IF( ASV( I )-SASV( I ) ) 2702, 2702, 2703 
SUCESSFUL  ITERATION 
2703  NICV(  n=NICV(  I  )  +  l 
IG0=1 

UNSUCESSFUL  ITERATION 
IF(NICV(  I  )--NIM)2708,2708,2717 
2717  DELUV( I )=0.0 
GO  TO  2708 
2702  IG0A=IG0A+1 

GO  T0{ 2706,2707) , IGOA 

CHANGE  SIGN  OF  THE  CONTROL  PERTURBATION 

2706  OELUV(  I  )=-'DELUV(  I  ) 

SASV(  I )  =  ASV(  I  ) 

GO  TO  2708 

REDUCE  THE  SIZE  OF  THE  CONTROL  PERTURBATION 

2707  DELUV(  I )=DELUV(  I  )/2.0 
NHCV( I )=NHCV( I )+l 

IF(NHCV( I )-NHM)2713,2713,2714 

2714  OELUV( I )=0.0 
GO  TO  2708 

2713  IG0A=1 

CALCULATE  THE  SLEW  CONTROLS 

2708  DO  2710  J=K,L 
IA=LREFAV{ K) 

UFV(  IA)  =  DELUV(  I) 

2710  OUFV(  IA)  =  UFV(  IA)^ASCALV(  lA) 

2700  J=J+3 

CHECK  TERMINATION  CRITERION 
5  IF(  DELUVI  1)’«'DELUV(  2)  >2715,2484,2715 

2715  RETURN 

TERMINATE  INITIAL  ALIGNMENT 
2484  M0DE0=3 
INITL=1 

C  RESET  N  TO  ORIGINAL  VALUE 

N=NS 

C  RESET  XFSV  AND  YFSV  TO  ORIGINAL  VALUES 

CALL  MCPY( SXFSV, XFSV, 1,9,0) 

CALL  MCPY( SYFSV, YFSV, 1,9,0) 

RETURN 

C 

END 


EAM23980 

EAM23990 

EAM24000 

EAM24010 

EAM24020 

EAM24030 

EAM24040 

EAM24050 

EAM24060 

EAM24070 

EAM24080 

EAM24090 

EAM24100 

EAM24110 

EAM24120 

EAM24130 

EAM24140 

EAM24150 

EAM24160 

EAM24170 

EAM24180 

EAM24190 

EAM24200 

EAM24210 

EAM24220 

EAM24230 

EAM24240 

EAM24250 

EAM24260 

EAM24270 

EAM24280 

EAM24290 

EAM24300 

EAM24310 

EAM24320 

EAM24330 

EAM24340 

EAM24350 

EAM24360 

EAM24370 

EAM24380 

EAM24390 

EAM24400 

EAM24410 

EAM24420 

EAM24430 

EAM24440 

EAM24450 

EAM24460 

EAM24470 

EAM24480 

EAM24490 

EAM24500 

EAM24510 

EAM24520 
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SUBROUTINE  MFCS(NENTRY) 

SUBROUTINE  TO  CALCULATE  MIRROR  FIGURE  CONTROL  SYSTEM  PARAMETERS 

SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  START 
DIMENSION  XFV( 20),UFV( 20) tASCALVi 20) ,FSCALV( 20),XFSV( 20) t 

1  YFSV( 20) »XFRV( 20) ,DUMV( 20) ,UFAV( 20) ,DUMVA(  20) tGAINV( 10) t 

2  GAINM(  1600) tASVI  3) 

COMMON/BLKEAM/XFV^UFV, ASCALVtFSCALVfXFSVtYFSVtXFRVtDUMVtUFAVf 
1  DUMVA,GAINVtGAINM,ASV 

DIMENSION  LACTV( 20) 

COMMON/BKIEAM/LACTVtNCVEL  tNtNRtNRA,MODEtMODOP»NSNSWTtNTYPI t 
1  NTYPO,NPUNCH,NMAG,NSENStNWAIT,NPOS,NMINT,NMEASfNFSENStNTIMS 

DIMENSION  AM(  400) , AIM< 400) 

COMMON/BLKMFC/AMtAIM 

DIMENSION  IAV( 30) ,IBV( 30) »ICV( 30) ,IDV( 30)tIEV(  30) t 

1  JCXV(  10),JCPV(  10),JICPV(  10)tCXV(  10)»CPV(  10),ICPV( 10) f 

2  CXM(  100)»CPM(  100)fICPM(  100),NMCXV(  10)rNMCPV(  10 ) ,NMI CPV( 10 ) t 

3  MODV(  20) 

COMMON/BLKIV/IAV,NIAV»IBVtNIBVTlCV»NICV, IDVfNIDVtlEVtNIEVtNXtNUt 

1  NCXVfNCPVtNICPVfJCXV^  JCPV» JlCPVtCXV^CPV, ICPV,CXMt CPMt ICPM, 

2  NMCXVtNMCPVTNMICPVfMODV 

DIMENSION  AMM( 400) tWV(  20) tDUMBVC  20) ,XFAV(  20) ♦XFOV( 20) 

COMMON/ BL  KMDL / AMM t  WV  f  DUMBV , XF AV  t  XFDV 
SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  END 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSV( 20) tOYFSV<  20) tODUMVA(  20) t0DUMVB( 20) tODUMVC(  20) t 

1  OUFV( 20)f0UFAV(  20)fMSE0V0(  20)tM0DV0(  20),IDUMV0(  10 ) t OUFERV  (  20 ) » 

2  OASV(  3) 

COMMON/S IGTWO/OXF SVfOYFSVfODUMV A, ODUM VBtOOUMVC,OUFVtOUFAV,OXFt 

1  MSEOVOtNSENSOtNWAITOtNPOSOf NMINTOtNMEASOtNFSENOtNTIMSOtLSENSf 

2  NFLGAtNFLGBtNFLGCf NFLGDtNFLGE»NTYPOOfNTYPIOfMODVOtNO,NROT 

3  ODT,ODTEtOUFMAXtMODEOtOGA»OGBtOUFERV»IOUMVO,OASVfNCVELO 
SIGMA  2  DIMENSION  STATEMENTS  END 

DIMENSION  DUMM(400) 

C 

1000  FORMATS  5H  MFCS) 

1001  FORMATi /tllXt4HA^AI) 

1002  FORMAT! /tlOX,5HGAINM) 

1003  FORMAT! /♦33H  SIMPLIFIED  LINEAR  CONTROL  SYSTEM,/) 

1004  FORMAT! /,30H  LINEAR  OPTIMAL  CONTROL  SYSTEM,/) 

1005  FORMAT! /,34H  GENERALIZED  LINEAR  CONTROL  SYSTEM,/) 

1006  FORMAT! /,7X,8HA>;=ASCALE) 

1007  FORMAT! /,9X,6HART=<^AR) 

1008  FORMAT!  /  ,3X,  12H!  ART^AR  )  ♦’*^-1 ) 

1009  FORMAT! /,19H  FIGURE  SENSOR  DATA,/) 

1010  FORMAT! /,21H  FIGURE  ACTUATOR  DATA,/) 

1011  FORMAT! /,29H  CONTROL  SYSTEM  CONFIGURATION,/) 

1012  FORMAT! /,18H  MIRROR  MODEL  DATA,/) 

1013  FORMAT! /,24H  MIRROR  CALIBRATION  DATA,/) 

1014  FORMAT!/, 19H  ACTUATOR  TEST  DATA,/) 


EAM24530 

EAM24540 

EAM24550 

EAM24560 

EAM24570 

EAM24580 

EAM24590 

EAM24600 

EAM24610 

EAM24620 

EAM24630 

EAM24640 

EAM24650 

EAM24660 

EAM24670 

EAM24680 

EAM24690 

EAM24700 

EAM24710 

EAM24720 

EAM24730 

EAM24740 

EAM24750 

EAM24760 

EAM24770 

EAM24780 

EAM24790 

EAM24800 

EAM24810 

EAM24820 

EAM24830 

EAM24840 

EAM24850 

EAM24860 

EAM24870 

EAM24880 

EAM24890 

EAM24900 

EAM24910 

EAM24920 

EAM24930 

EAM24940 

EAM24950 

EAM24960 

EAM24970 

EAM24980 

EAM24990 

EAM25000 

EAM25010 

EAM25020 

EAM25030 

EAM25040 

EAM25050 

EAM25060 

EAM25070 

EAM25080 

EAM25090 
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1015  FORMAK  2E10,3) 


EAM25100 


GO  TO  (  It2t3,4,5,6,7) ,NENTRY 

MIRROR  FIGURE  CONTROL  SYSTEM  INPUT  DATA 
1  PRINT  1000 


EAM25110 

EAM25120 

EAM25130 

EAM25140 

EAM25150 


CALL  IRANDPI 5 1 NSNSWT , NTYP I tNTYPO ,NPUNCH ,NMAG 1 1  A, I  A, 4 ) 
C 

C  READ  BASIC  DATA  FOR  THE  EXPERIMENTAL  ACTIVE  MIRROR 

PRINT  1012 
C  NtNR 

CALL  IRANDPI  2»NtNRTlAtIA,IA,IA,IAT4) 

NA  =  N 

C  IF  MODV( 10)=2  READ  IN  THE  REDUCED  A  MATRIX 

IGO=MODV( 10) 

GO  T0( 2005,2006) ,IGO 
2006  NA=NR 


EAM25160 

EAM25170 

EAM25180 

EAM25190 

EAM25200 

EAM25210 

EAM25220 

EAM25230 

EAM25240 

EAM25250 

EAM25260 


2005  CONTINUE 
C  AM 

CALL  MXRNP( AM,N,NA,4) 

C  ASCALE 

CALL  RANDPDI 2t ASCALE, AIMSCL tDAtDAtDA, DA, DAt4) 
ASCLB=1^0/AIMSCL 
GAINV( 7)=ASCALE 
C  SCALE  THE  A  MATRIX 

IFI ASCALE-1. 0)2002, 2001, 2002 

2002  IA  =  N=<fNA 

DO  2003  1  =  1, lA 

2003  AM(  I  )=AM(  I  )«ASCALE 
PRINT  1006 

CALL  MXRNP( AM,N,NA,3) 

2001  CONTINUE 

PRINT  1009 
C  FSCALE 

CALL  RANDPD(1,FSCALE,DA,DA,DA,DA,DA,DA,4) 
FSCALV(1)=FSCALE 
C  XFSV 

CALL  MXRNPI XFSV,1,N,4) 

C  YFSV 

CALL  MXRNP( YFSV, 1,N,4) 

C  PSCALE 

CALL  RANDPD<  1,PSCALE,DA,DA,DA,0A,DA,DA,4) 
PRINT  1010 
C  LACTV 

CALL  IMXRNPI LACTV,1,N,4) 

C  ASCALV 

CALL  MXRNP( ASCALV,1,NR,4) 

C  GAINV 

PRINT  1011 
C  MODOP 

CALL  IRANDP(  1 ,MODOP , I A , I  A , I  A , I  A , I  A , I  A , 4 ) 

PRINT  1014 
CALL  ACTCALI 1) 

PRINT  1013 
CALL  MIRCALI 1) 

C 

C  CALCULATE  FEEDBACK  MATRIX 

2  GO  T0( 2110,2120,2130) , MODOP 


EAM25270 

EAM25280 

EAM25290 

EAM25300 

EAM25310 

EAM25320 

EAM25330 

EAM25340 

EAM25350 

EAM25360 

EAM25370 

EAM25380 

EAM25390 

EAM25400 

EAM25410 

EAM25420 

EAM25430 

EAM25431 

EAM25432 

EAM25450 

EAM25460 

EAM25470 

EAM25480 

EAM25490 

EAM25500 

EAM25510 

EAM25520 

EAM25530 

EAM25540 

EAM25550 

EAM25560 

EAM25570 

EAM25580 

EAM25590 

EAM25600 

EAM25610 

EAM25620 

EAM25630 

EAM25640 

EAM25650 

EAM25660 
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SIMPLIFIED  LINEAR  CONTROL  SYSTEM 

GAINM=^ARR>«'*-1 

GENERATE  ARR 

2110  NRA^NR 
PRINT  1003 

GO  T0(  2111t2112) t lAMODE 

2111  CALL  REDUAM( 1) 

2112  CALL  REOUAMl 2) 

GAINM=ARR«>«'-1 
SCALE  A 
IA=NR«NR 

DO  2113  I«1,IA 

2113  AM(  I)=AM{  D^AIMSCL 

CALL  SINV( NRtAMfGAINMtDUMMtDA) 

SCALE  AI 
DO  2114  1  =  1, lA 
AM{  I  )  =  AM(  I  )*ASCLR 

2114  GAINMI  I)=GAINM(  n^AIMSCL 
CHECK  A^AI=I? 

CALL  MPRD(  AM,GAINM,AIM,NR,NR,0,0^NR) 
PRINT  1001 

CALL  MXRNP( AIM,NR,NR,3) 

PRINT  SLCS  GAIN  MATRIX 
PRINT  1002 

CALL  MXRNPI GAINM,NR,NR,3) 

RETURN 

LINEAR  OPTIMAL  CONTROL  SYSTEM 
GAINM=(  (  ART«AR)*=«'-1)’*'ART 

2120  NRA=N 
PRINT  1004 

C  GENERATE  AR 

GO  T0( 2121,2122) flAMODE 

2121  CALL  REDUAMI 1) 

C  GENERATE  ART 

2122  CALL  MTRA( AM,AIM,N,NR,0) 

CALL  MPRO(  AIM,AM,GAINM,NR,N,0,0,NR) 
PRINT  1007 

CALL  MXRNP( GAINM,NR,NR,3) 

C  SCALE  A 

IA=NR^NR 
DO  2123  1=1, lA 

2123  GAINMI  I)=GAINM(  I )^AIMSCL 

CALL  SINV{ NR,GAINM,AM,DUMM,DA) 

C  SCALE  AI 

DO  2124  1  =  1, lA 

GAINMI I)=GAINM( 1 )*ASCLB 

2124  AM( I )=AMI I )^AIMSCL 
PRINT  1008 

CALL  MXRNP( AM, NR, NR, 3 ) 

CALL  MPRD(  AM,GAINM,DUMM,NR,NR,0,0,NR) 
PRINT  1001 

CALL  MXRNP( 0UMM,NR,NR,3) 

CALL  MPRDI AM,AIM,GAINM,NR,NR,0,0,N) 

C 


EAM25670 

EAM25680 

EAM25690 

EAM25700 

EAM25710 

EAM25720 

EAM25730 

EAM25740 

EAM25750 

EAM25760 

EAM25770 

EAM25780 

EAM25790 

EAM25800 

EAM25810 

EAM25820 

EAM25830 

EAM25840 

EAM25850 

EAM25860 

EAM25870 

EAM25880 

EAM25890 

EAM25900 

EAM25910 

EAM25920 

EAM25930 

EAM25940 

EAM25950 

EAM25960 

EAM25970 

EAM25980 

EAM25990 

FAM26000 

EAM26010 

EAM26020 

EAM26030 

EAM26040 

EAM26050 

EAM26060 

EAM26070 

EAM260R0 

EAM26090 

EAM26100 

EAM26110 

EAM26120 

EAM26130 

EAM26140 

EAM26150 

EAM26160 

EAM26170 

EAM26180 

EAM26190 

EAM26200 

EAM26210 

EAM26220 

EAM26230 
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C 


C 

C 

2130 


3 


C 

2202 


C 

5 


C 

2201 

6 

C 

C 

4 


C 

2302 


C 

7 

2301 


C 


PRINT  LOGS  GAIN  MATRIX 

EAM26240 

PRINT  1002 

EAM26250 

CALL  MXRNP( GAINM,NR,N,3) 

EAM26260 

RETURN 

EAM26270 

EAM26280 

GENERALIZED  LINEAR  CONTROL  SYSTEM 

EAM26290 

NRA  =  N 

EAM26300 

PRINT  1005 

EAM26310 

CALL  MXRNP( GAINM,NRTNt4) 

EAM26320 

RETURN 

EAM26330 

EAM26340 

EXPERIMENTALLY  CHECK  ACTUATOR  OPERATION 

EAM26350 

IGO=MODV(  12) 

EAM26360 

GO  TO  ( 2201t2202) 1 1  GO 

EAM26370 

EAM26380 

CALL  MARK!  I,8,2t2,5 ) 

EAM26390 

RETURN 

EAM26400 

EAM26410 

CALL  MARK! l,8,3,2t 6) 

EAM26420 

RETURN 

EAM26430 

EAM26440 

CALL  ACTCALi  2) 

EAM26450 

CALL  ACTCAL(  3) 

EAM26460 

RETURN 

EAM26470 

EAM26480 

EXPERIMENTALLY  DETERMINE  AR 

EAM26490 

IG0=M00V0(6) 

EAM26500 

GO  TO  ( 2301,2302) ,IG0 

EAM26510 

EAM26520 

CALL  MARK( 1,9, 2, 2,7) 

EAM26530 

RETURN 

EAM26540 

EAM26550 

CALL  MARK( 1,9, 3, 2, 6) 

EAM26560 

RETURN 

EAM26570 

CALL  MIRCAL<  2) 

EAM26580 

CALL  MIRCALI 3) 

EAM26590 

RETURN 

EAM26600 

EAM26610 

END 

EAM26620 
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SUBROUTINE  M I RC AL ( NENTRY  ) 

SUBROUTINE  TO  CALIBRATE  MIRROR 

SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  START 

DIMENSION  XFV(  20) tUFV( 20) tASCALV( 20) ,FSCALV(  20) rXFSVI  20) , 

1  YFSV( 20) ,XFRV( 20) tOUMVI 20) tUFAV( 20) ♦0UMVA{ 20) ,GAINV( 10) , 

2  GAINM( 1600) t ASV( 3) 

COMMON/BLKEAM/XFVtUFV, ASCALVtFSCALVf XFSVtYFSV,XFRV»DUMVtUFAVt 
1  DUMVAtGAINVtGAINMtASV 

DIMENSION  LACTV( 20) 

C0MM0N/BKIEAM/LACTV,NCVEL  »N,NR,NRAtM0DEtM0D0PtNSNSWTtNTYPI , 

1  NTYPO,NPUNCH,NMAG,NSENStNWAIT tNPOS»NMINTtNMEAS»NFSENStNTIMS 

DIMENSION  AM( 400) tAIMC 400) 

COMMON/BLKMFC/AM»AIM 

DIMENSION  I  AVI  30), IBV( 30),ICV( 30),IDV( 30),IEV( 30), 

1  JCXV(  10) , JCPVI  10) , JICPVI  10) ,CXV(  10) ,CPV(  10) ,ICPV( 10) , 

2  CXM(  100) ,CPM(  100) , ICPMI  100) ,NMCXV(  10) ,NMCPV<  10) ,NMICPV(  10) , 

3  M0DV( 20) 

COMMON/BLKIV/IAVtNIAV, IBV,NIRV,ICV,NICV,IDV,NIDV, IEV,NIEV,NX,NU, 

1  NCXV,NCPV,NICPV, JCXV,  JCPV, JICPV,CXV,CPV, ICPV,CXM,CPM, ICPM, 

2  NMCXV,NMCPV,NMICPV,MOOV 

DIMENSION  AMMI  400) ,WV( 20) ,DUMBV( 20) ,XFAV( 20) ,XFDV( 20) 

COMMON/RLKMDL/AMM,WV,DUMBV,XFAV,XFDV 

SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  END 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSVI  20) ,0YFSV( 20) ,0DUMVA<  20) ,0DUMVB( 20) ,0DUMVC( 20) , 

1  OUFVI 20) ,0UFAV( 20) ,M$EOVO( 20),M0DV0( 20) , IDUMVOI 10) , QUEER V( 20) , 

2  0ASV( 3) 

COMMON/ S I GTWO/OXFSV,OYFSV,ODUMVA,ODUMVB,ODUMVC,OUFV,OUFAV,OXF, 

1  MSEOVO,NSENSQ,NVlAITO,NPOSO,NMINTOtNMEASO,NFSENO,NTIMSO,LSENS, 

2  NFLGA,NFLGB,NFLGC ,NFLGD,NFLGE,NTYPOO,NTYPIQ,MOOVO,MOf NRO, 

3  0DT,0DTE,0UFMAX  tMODEO ,0G A ,0GB , OUFERV , I DUMVO ,0ASV ,NCVEL0 
SIGMA  2  DIMENSION  STATEMENTS  END 

1000  FORMAT! 7H  MIRCAL) 

1001  FORMAT! /,13X,2HAM) 

GO  TO  !  1,2, 3, 4,5,6) , NENTRY 

INPUT  DATA 

1  PRINT  1000 

CALL  IRANDP!  1 ,NME ASF , I  A , I  A , I  A, I  A, I  A, I  A ,4 ) 

CALL  RANDPD! 1 , DACT , DA , DA , DA, DA, DA , DA , 4 ) 

DB=^2.0«DACT^^NMEASF 

DB=1.0/DB 

RETURN 

INITIALIZATION 

2  IGOA=MODV! 12) 

RETURN 

MIRROR  CALIBRATION 

3  SGAIN=GAINV! 1) 

IGOA=MODVO!  6) 

GAINV!1)=0,0 


EAM26630 

EAM26640 

EAM26650 

EAM26660 

EAM26670 

EAM26680 

EAM26690 

EAM26700 

EAM26710 

EAM26720 

EAM26730 

EAM26740 

EAM26750 

EAM26760 

EAM26770 

EAM26780 

EAM26790 

EAM26800 

EAM26B10 

EAM26820 

EAM26830 

EAM26840 

EAM26850 

EAM26860 

EAM26870 

EAM26880 

EAM26890 

EAM26900 

EAM26910 

EAM26920 

EAM26930 

EAM26940 

EAM26950 

EAM26960 

EAM26970 

EAM26980 

EAM26990 

EAM27000 

EAM27010 

EAM27020 

EAM27030 

EAM27040 

EAM27050 

EAM27060 

EAM27070 

EAM27080 

EAM27090 

EAM27100 

EAM27110 

EAM27120 

EAM27130 

EAM27140 

EAM27150 

EAM27160 

EAM27170 

EAM27180 

EAM27190 

EAM27200 

EAM27210 

EAM27220 

EAM27230 
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NTIMS=NFSENS 

EAM27240 

NTIMSO=NTIMS 

EAM27250 

C 

SET  AM=0.0 

EAM27260 

IA=N«NR 

EAM27270 

DO  2100  I=ltIA 

EAM27280 

2100 

AMI  I  )=0,0 

EAM27290 

1=0 

EAM27300 

2101 

1  =  1  +  1 

EAM27310 

o 

11 

EAM27320 

IFI I-NR)2103, 2103,2200 

EAM27330 

2103 

J  =  J+1 

EAM27340 

IFI J-NMEASF)2104,2104,2208 

EAM27350 

C 

RETURN  TO  SIGMA  2  TO  INITIALIZE  EAMCS 

EAM27360 

2104 

GO  TO  1 2105,2106), IGOA 

EAM27370 

“^EAM  SOFTWARE  TEST  AM27380 

2105 

CALL  EAMCSI  8) 

EAM27390 

GO  TO  4 

EAM27400 

C*«:«csfcsScEAM  SOFTWARE  TEST  COD  I  AM27410 

2106 

CALL  MARK! 1,22,8,9,4) 

EAM27420 

RETURN 

EAM27430 

C 

EAM27440 

4 

UFVI I )=-DACT 

EAM27450 

OUFVI  I  )=UFVI  I  )=«'ASCALVI  I  ) 

EAM27460 

GO  TO  1 2107,2108), IGOA 

EAM27470 

2108 

CALL  MARK! 1,22,3,9,5) 

EAM27480 

RETURN 

EAM27490 

C 

RETURN  TO  SIGMA  2  TO  ADJUST  ACTUATORS  AND  MEASURE  FIGURE  ERROR 

EAM27500 

C 

EAM27510 

C»«:i::>:>!jEAM  SOFTWARE  TEST 

2107 

CALL  EAMCSI 3) 

EAM27530 

SOFTWARE  TEST  C0DING*********************’>='*'*=«=***’*=*******=«==*‘****EAM27540 


C.  EAM27550 

5  DO  2202  K=1,N  EAM27560 

2202  DUMV( K)=XFV( K)  EAM27570 

UFV(  n=OACT  EAM27580 

OUFV< I )=UFV( I )*ASCALV( I )  EAM27590 

GO  TO  ( 2204,2205) tIGOA  EAM27600 

2205  CALL  MARK( 1 , 22 , 3 , 9, 6)  EAM27610 

RETURN  EAM27620 

C  RETURN  TO  SIGMA  2  TO  ADJUST  ACTUATORS  AND  MEASURE  FIGURE  ERROR  EAM27630 

C  EAM27640 


SOFTWARE  TEST  COD  I  NG*********************=*‘*****=<'’S‘*****’<‘*******EAM27650 


2204  CALL  EAMCSO)  EAM27660 

SOFTWARE  TEST  COO  I NG=<'=***=*'’>'***’^^*=*'*^*^**^^***^^’<^’*'**’*'^^*''’^'’*'*’^^^**E AM27670 


C 

6  DO  2203  K=ltN 

DUMV( K)=( XFV( K)-0UMV( K) ) 

2203  AMI K+( I~X )«N)=OUMVI K)+AM( K+( I-l )*N) 

2201  GO  TO  2103 
2208  DO  2207  K=ltN 

2207  AMI  K  +  l  I--1)^N):=AM(  K+l  I“1)^N)*DB 
UFVI  I  )=0.0 
OUFVI I )=0.0 
GO  TO  2101 
C 

C  PRINT  OUT  MIRROR  DEFORMATION-ACTUATOR  COMMAND  ARRAY 

2200  PRINT  1001 

CALL  MXRNPI AMtNtNRt3) 

GAINVI 1>=SGAIN 
RETURN 
C 

END 


EAM27680 

EAM27690 

EAM27700 

EAM27710 

EAM27720 

EAM27730 

EAM27740 

EAM27750 

EAM27760 

EAM27770 

EAM27780 

EAM27790 

EAM27800 

EAM27810 

EAM27820 

EAM27830 

EAM27840 

EAM27850 
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SUBROUTINE  M I RMDL ( NENTRY , I  ACT ) 

STRUCTURAL  MODEL  OF  THE  MIRROR  FOR  TESTING  THE  EAM  SOFTWARE 
PACKAGE 

SIGMA  5  TYPE  A  DIMENSION  STATEMENTS  START 

DIMENSION  XFV(  20) tUFV( 20) ,ASCALV<  20) ,FSCALV( 20) fXFSV<  20) , 

1  YFSV( 20) »XFRV( 20) tOOMV( 20) tUFAV( 20) tDUMVA(  20 ) t GAINV( 10 ) , 

2  GAINM( 1600) ,ASV( 3) 

COMMON/BLKEAM/XFVtUFV,ASCALVtFSCALV,XFSVtYFSVtXFRVtDOMVfUFAVt 
1  DUMVAtGAINVrGAINMt A5V 

DIMENSION  LACTV( 20) 

COMMON/BKIEAM/LACTV,NCVEL,NtNRtNRAfMOOE»MODOP,NSNSWTtNTYPN 
1  NTYPO,NPUNCHtNMAGtNSENSfNWAITtNPOStNMINTtNMEAS,NFSENS,NTIMS 

DIMENSION  AM( 400) ,AIM( 400) 

COMMON/BLKMFC/AM, AIM 

COMMON/BLKT/T,DT,DTH,DTPLOT»OTNOIStTPHI tTPRNTtTEND 

DIMENSION  IAV( 30), IBV( 30), ICV<  30),IDV( 30),IEV( 30), 

1  JCXV( 10),JCPV( 10),JICPV( 10),CXV( 10),CPV( 10) ,ICPV( 10), 

2  CXMI 100) ,CPM( 100) , ICPM( 100) ,NMCXV( 10) ,NMCPV( 10) ,NMICPV( 10) , 

3  M0DV(20) 

COMMON/BLKIV/IAV,NIAV, IBV,NIBV, ICV,NICV,IDV,NIDV, IEV,NIEV,NX,NU, 

1  NCXV,NCPV,NICPV, JCXV,  JCPV, JICPV,CXV,CPV, ICPV,CXM,CPM,ICPM, 

2  NMCXV,NMCPV,NMICPV,MODV 

DIMENSION  XV( 50),NAMV( 50),DUMV( 20),DUMM(400),PARV( 50),1PARV( 50) , 
1  SXV( 50) ,SPARV( 50),ISPARV(  50),IDUMV(  20) 

COMMON/BLKSIM/XV,NAMV,DUMV,DUMM,PARV, IPARV,SXV,SPARV, ISPARV, 

1  IDUMV 

DIMENSION  AMM( 400) ,WV( 20) ,DUMBV( 20) ,XFAV( 20) ,XFDV( 20) 
COMMON/BLKMDL/AMM, WV,DUMBV,XFAV,XFDV 
SIGMA  5  TYPE  A  DIMENSION  STATEMENTS  END 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSVI 20) ♦OYFSV(  20) ,ODUMVA( 20),0DUMVB( 20) ,ODUMVC( 20) , 

1  OUFV( 20) ,OUFAV{  20) ,MSEOVO( 20) ,MODVO(  20) , IDUMVQ(  10) ,OUFERV( 20) , 

2  OASV( 3) 

COMMON/SIGTWO/OXFSV,OYFSV,ODUMVA,OOUMVB,QDUMVC,OUFV,OUFAV,OXF, 

1  MSEOVO,NSENSO,NWAITO,NPOSO,NMINTO,NMEASO,NFSENO,NTIMSO,LSENS, 

2  NFLGA,NFLGB,NFLGC,NFLGD,NFLGE,NTYPOO,NTYPIO,MODVO,NO,NRO, 

3  ODT,ODTE,OUFMAX,MODEO,OGA,OGB,OUFERV, IDUMVO,OASV,NCVELO 
SIGMA  2  DIMENSION  STATEMENTS  END 

DIMENSION  UV( 20) 

1001  FORMAT!  /  ,5X,  10HAMM=!^ASCALE) 

GO  TO! 1,2,3) ,NENTRY 

INPUT  DATA 
1  PRINT  1000 

C  READ  DEFORMATION  FORCE  MATRIX  FOR  ACTUAL  MIRROR 


EAM27860 

EAM27870 

EAM27880 

EAM27890 

EAM27900 

EAM27910 

EAM27920 

EAM27930 

EAM27940 

EAM27950 

EAM27960 

EAM27970 

EAM27980 

EAM27990 

EAM28000 

EAM28010 

EAM28020 

EAM28030 

EAM28040 

EAM28050 

EAM28060 

EAM28070 

EAM28080 

EAM28090 

EAM28100 

EAM28110 

EAM28120 

EAM28130 

EAM28140 

EAM28150 

EAM28160 

EAM28170 

EAM28180 

EAM28190 

EAM28200 

EAM28210 

EAM28220 

EAM28230 

EAM28240 

EAM28250 

EAM28260 

EAM28270 

EAM28280 

EAM28290 

EAM28300 

EAM28310 

EAM28320 

EAM28330 

EAM28340 

EAM28350 

EAM28360 

EAM28370 

EAM28380 

EAM28390 

EAM28400 

EAM28410 

EAM28420 
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C  READ  IN  REDUCED  MATRIX  IF  M0DV(10)=2 

IGO=MODV{  10) 

GO  T0( 2006t2007) t IGG 

2006  NA=N 

GO  TO  2008 

2007  NA=NR 

2008  CALL  MXRNP( AMMtNfNA,4) 

C  SCALE  AMM 

IF( GAINV( 7 )-l. 0)2003 ,2004, 2003 

2003  lA^N^J'NA 

DO  2005  1=1, lA 
2005  AMM( I )=AMM( I )^GAiNV( 7) 

PRINT  1001 

CALL  MXRNP( AMM,N,NA,3) 

2004  CONTINUE 

C  READ  INITIAL  DISTURBANCE  INDUCED  FIGURE  ERROR 

CALL  MXRNPI XFOV, 1,N,4) 

INITIALIZATION 
SET  XFAV=XFDV 

2  CALL  MCPY( XFDV,XFAV, 1 ,N,0) 

DO  2000  1=1, N 

UFAV(  I  )=0,0 

2000  UV( I )=0.0 
RETURN 

STRUCTURE  SIMULATION 

FORM  complete  DISTURBANCE  VECTOR  UV 

3  IGO=MODV( 10) 

GO  T0( 2301,2302) ,IGO 

2301  J=0 

DO  2001  1=1, N 

IF(LACTV{ I ) )2002,2001,2002 
2002  J=J+1 

UV<  I  )  =  UFAV(  J  ) 

C 

1000  FORMAT<  7H  MIRMDL ) 

2001  CONTINUE 

C  DUMBV=AMM=5'UV 

CALL  MPRD( AMM,UV,DUMBV,N,N,0,0, 1 ) 

GO  TO  2303 

C  OUMBV=AMMR^UFAV 

2302  CALL  MPRO(  AMM^UFAV ,DUMRV ,N ,NA, 0, 0, 1 ) 

C  XFAV=XFDV+DUMBV 

2303  CALL  MMAOD( N, 1 . 0 , XFDV , 1 . 0, DUMBV , XF AV ) 

RETURN 

C 

END 


EAM28430 

EAM28440 

EAM28450 

EAM28460 

EAM28470 

EAM28480 

EAM28490 

EAM28500 

EAM28510 

EAM28520 

EAM28530 

EAM28540 

EAM28550 

EAM28560 

EAM28570 

EAM28580 

EAM28590 

EAM28600 

EAM28610 

EAM28620 

EAM28630 

EAM28640 

EAM28650 

EAM28660 

EAM28670 

EAM28680 

EAM2B690 

EAM28700 

EAM28710 

EAM28720 

EAM28730 

EAM28740 

EAM28750 

EAM2B760 

EAM28770 

EAM28780 

EAM28790 

EAM28800 

EAM28810 

EAM28820 

EAM28830 

EAM28840 

EAM28850 

EAM28860 

EAM28870 

EAM2BR80 

EAM28890 

EAM28900 


214 


no  no  on  o  o  no  onoono 


SUBROUTINE  PINOX( NENTRYtPINOEX, YV ) 


EAM28910 


SUBROUTINE  TO  CALCULATE  PERFORMANCE  INDICES  FOR  THE  MIRROR  FIGURE 
CONTROL  SYSTEM 


SIGMA  5  TYPE  0  DIMENSION  STATEMENTS  START 
DIMENSION  LACTVI 20) 

COMMON/BKIEAM/L ACTVtNCVEL tNtN-tNRAtMODEfMODOPtNSNSWTtNTYPIf 
1  NTYPOtNPUNCH,NMAG»NSENStNWAIT,NPnSfNMINTtNMEAS,NFSENStNTIMS 
SIGMA  5  TYPE  C  DIMENSION  STATEMENTS  END 
SIGMA  5  TYPE  D  DIMENSION  STATEMENTS  END 
DIMENSION  WGTV( 20) ,YVI 1) 

1000  FORMAT!  6H  PINDX) 

GO  TO! It2,3) tNENTRY 

INPUT  DATA 

1  PRINT  1000 

CALL  MXRNP! WGTV, 1,N,4) 

RETURN 

INITIALIZATION 

2  PINDEX=0*0 
RETURN 

EVALUATE  PERFORMANCE  INDEX 

3  PINDEX=0.0 

DO  2000  1=^1, N 

2000  PINDEX=PINDEX  +  YV!  I  )*YV!  I  )’«=WGTV!  I) 

PINDEX==SORT!  PINDEX) 

RETURN 

C 

END 
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SUBROUTINE  PLRT( NENTRY t XV , T ,DT t NRUN ) 

C 

DIMENSION  XV(  1) f PMAXV( 40) tFACV(  5) tPLOTVI 45) 

C 

DIMENSION  IPLOTV(  40) tIMODV(  40) ,SCALV(  40) tSCALAV( 40 ) , SSCAL V ( 40 ) 

C 

DIMENSION  X( 200) ,Y( 2000) 

C 

1000  FORMAT! 5H  PLRT) 

1001  FORMAT!  10Xt5HSCALV) 

1003  FORMAT! 1 IX t 4HNRUN » 9X t6HNPLnTV , 1 IX t 4HNPTS t9X t 6H0TPL OT , 1 IX t 4HTEND ) 

1004  FORMAT! 9X, 6HIPL0TV) 

1006  FORMAT! 10Xt5HPMAXV) 

1008  FORMAT! 31 15t2F15.6) 

1009  FORMAT! 6X,9HRUN  SCALE) 

1012  FORMAT! 14H  REDIMENSIOM  Y) 

1013  FORMAT! 14H  REDIMENSION  X) 

C 

GO  TO! I,2t3,4r5t6t7,8t9tl0tllt 12) ,NENTRY 
C 

C  READ  PLOT  DATA 

1  PRINT  1000 

CALL  IRANDP! ItNPLOTVtIAtlAt IAtIAtIA,IA,4) 

CALL  RANDPD! lt0TPL0TfDAtDAtDA,DAtDAtDAt4) 

CALL  IMXRNP! IPLOTVt ltNPL0TV,4) 

CALL  IMXRNP! IMODVt 1 tNPL0TVt4) 

CALL  MXRNP! SCALV, ltNPL0TVf4) 

C  READ  IN  DATA  FOR  SYSTEM  360  PLOT  ROUTINE 

TEND=T 

CALL  STORED! 1 , R ANG t W I DTH, SP AC , SC AL AV t X t Y ♦ TEND , NPL OTV» NPTS ♦ NRUN ) 
DO  2000  I=1,NPL0TV 
SCALAV!  I  )=SCALV!  I  ) 

2000  SSCALV! I )=SCALV! I ) 

NDIMX=200 
NDIMY=2000 
FACV(1)=1.0 
FACV!2)=1*25 
FACV! 3)=2.5 
FACV! 4)=5.0 
FACV!5)=7.5 
RETURN 
C 

C  INITIALIZE  PLOT 

2  TEND=T 
DTH=:DT/2.0 
STP=0,0 

START  OF  PLOT  RUN 
SET  Y  AND  X  TO  ZERO 

3  DO  2004  I=ltNDIMX 

2004  X!  I )=0.0 

DO  2005  I=1,NDIMY 

2005  Y! I )=0.0 

C  RESET  SCALV  TO  ORIGINAL  VALUE 

DO  2002  I=1,NPL0TV 
SCALAV!  I  )=SSCALV!  I  ) 

2002  SCALV! I )=RANG/SSCALV! I ) 
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C  DEFINE  AND  PROTECT  THE  DATA  SET 

DA=TEND+0,01*DTPL0T 
IA=DA/DTPLOT 
NPTS=I A+1 
NST0RE=0 

IF( NPTS«NDIMX)21?0t2120t2130 
2130  PRINT  1013 
NPTS=NDIMX 
DA=NPTS-1 
DTPLOT“TEND/DA 
2120  I A=NPTS^NPLOTV 

IF( IA"NDIMY)2100, 2100, 2110 
2110  PRINT  1012 

NPTS=NDIMY/NPLOTV 

DA=NPTS-1 

DTPLOT=TEND/DA 

C  INITIALIZE  360  PLOTTING  ROUTINE 

2100  CALL  STORED! 2, RANG, WIDTH, SPAC, SCALAV,X,Y, TEND, NPLOTV,NPTS,NRUN) 
RETURN 
C 

C  STORE  PLOT  DATA  IN  ARRAYS  X  AND  Y  EVERY  DTPLOT  SECONDS 

4  IF(  T+DTH--STP)2810, 2820, 2820 
2820  STP=STP+DTPLOT 

NST0RE=NST0RE+1 
X( NSTORE)=T 
K=NSTORE 

DO  2800  I=:1,NPL0TV 
J=IPLOTV( I ) 

Y( K)  =  XV( J  ) 

2800  K=K+NPTS 
2810  RETURN 
C 

5  RETURN 

6  RETURN 

7  RETURN 

8  RETURN 
C 

C  PLOT  DATA  FOR  ONE  RUN 

C  GENERATE  SELECTED  SCALE  FACTORS 

9  DO  2600  I=1,NPL0TV 

2600  PMAXV(  I  )  =  0.0 

C  FIND  MAXIMUM  MAGNITUDES  OF  STORED  VARIABLES 

L=1 

M=:NPTS 

DO  2610  I=1,NPL0TV 

DO  2612  K=:L,M 

DA  =  ABS{  Y(  K)  ) 

IF(DA-PMAXV( I > 12612,2612, 2613 
2613  PMAXV( I )=DA 
2612  CONTINUE 
L=L+NPTS 
2610  M=M+NPTS 

C  GENERATE  SCALE  FACTORS  AUTOMATICALLY 

DO  2621  K=1,NPL0TV 
IG0=IM0DV( K) 

GO  TO!  2621,2615) , IGO 
2615  DO  2618  1=1,20 
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J=I-10 
DB=10.0^4:J 
DO  2617  L  =  lf5 
OA=DB*FACV( L ) 

IF(  PMAXV(  K)-DA)2619t2617t2617 

2617  CONTINUE 

2618  CONTINUE 

2619  SCALAV(  K):=DA 
SCALV( K)=RANG/DA 

2621  CONTINUE 

C  PRINT  PLOTTED  DATA  CHARACTERISTICS 

PRINT  1003 

PRINT  1008 tNRUNtNPLOTVtNPTS,DTPLOTt TEND 
PRINT  1004 

CALL  IMXRNPI IPLOTVt lfNPL0TV,3) 

PRINT  1001 

CALL  MXRNP(  SCALAVa  tNPL0TV,3) 

PRINT  1006 

CALL  MXRNP(  PMAXVafNPL0TV,3) 

C  SCALE  AND  LIMIT  DATA  FOR  PLOTTING 

L  =  1 

M=NPTS 

DO  2410  I=1,NPL0TV 
DB=SCALV(  I  ) 

DO  2412  K=LfM 
Y( K )=Y( K)«DB 

2412  CALL  SATLIM( Y( K) tRANGtIA) 

L=L+NPTS 
2410  M  =  M4-NPTS 

C.  PLOT  DATA  FOR  ONE  RUN  USING  THE  360  PLOTTING  ROUTINE 

CALL  STORED^  3 , R ANG t W I DTH t SP AC t SCAL AV , X t Y t TEND ,NPLOTV t NPTS tNRUN ) 
RETURN 
C 

10  RETURN 

11  RETURN 

TERMINATE  360  PLOTTING  ROUTINE 

12  CALL  STORED( 4t R ANG » W I DTH » SPAC t SC AL AV , X , Y tTENO t NPL OTV , NPTS f NRUN ) 
RETURN 

C 

END 
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SUBROUTINE  RESPON( NENTRY ) 

SUBROUTINE  TO  GENERATE  THE  TIME  DOMAIN  RESPONSE  OF  THE 
EXPERIMENTAL  ACTIVE  MIRROR 

SIGMA  5  TYPE  A  DIMENSION  STATEMENTS  START 
DIMENSION  XFV(  20) tUFV( 20) ,ASCALV( 20),FSCALV( 20) ,XFSV( 20) t 

1  YFSV( 20) ,XFRV( 20) ,D0MV( 20) ,UFAV(  20) tDUMVA( 20 ) » GA I NV(  10 ) , 

2  GAINM(  1600)  tASV(  3) 

COMMON/BLKEAM/XFVtUFV,ASCALVfFSCALVtXFSV,YFSVtXFRV,DOMVtUFAV, 

1  OUMVA,GAINV,GAINM,ASV 

DIMENSION  LACTV( 20) 

COMMON/BKIEAM/LACTV»NCVEL»NtNRtNRA,MODE»MODOPtNSNSWTtNTYPI t 
1  NTYP0»  NPUNCH,NMAG,NSENStNWAITt NPOStNMINTtNMEASfNFSENStNTIMS 

DIMENSION  AM( 400) , AIM( 400) 

COMMON/BLKMFC/AMt AIM 

COMMON/BLKT/TtDT,DTHtDTPLOT,OTNOIS,TPHI tTPRNTtTEND 

DIMENSION  IAV( 30) tIBV( 30) ,ICV( 30) , IDV(  30) , IEV(  30) t 

1  JCXV( 10)tJCPV( 10),JICPV( 10),CXV( 10)tCPV<  10),ICPV( 10), 

2  CXM(  100) ,CPM(  100) , ICPM(  100) tNMCXV(  10) tNMCPV(  10 ) ,NM I CPV(  10 ) , 

3  M0DV(20) 

COMMON/BLKIV/IAVtNIAV,IBV,NIBVrICV,NICV,IDV,NIDV,IEV,NIEV,NXtNU, 

1  NCXVtNCPV,NICPV,JCXV,  JCPV, JICPV,CXV,CPVt ICPV,CXM,CPMt ICPM, 

2  NMCXVtNMCPVtNMICPVtMODV 

DIMENSION  XV( 50) ,NAMV( 50) ,DUMV( 20) ,DUMM( 400) tPARV( 50) , IPARV( 50) , 
1  SXV( 50),SPARV( 50) ,ISPARV( 50),IDUMV( 20) 

COMMON/BLKSIM/XVtNAMV,DUMV,OUMMtPARV, IPARV,SXV,SPARV, ISPARV, 

1  IDUMV 

DIMENSION  AMM( 400) ,WV( 20) ,DUMBV( 20) ,XFAV( 20),XF0V( 20) 
COMMON/BLKMDL/AMMtWVtDUMBVtXFAVtXFDV 
SIGMA  5  TYPE  A  DIMENSION  STATEMENTS  END 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSV(  20) ,OYFSV( 20) ,ODUMVA(  20) ,ODUMVB(  20) ,ODUMVC(  20) , 

1  OUFV( 20) ,OUFAV( 20) ,M$EOVO( 20),M0DV0( 20) , IDUMVO( 10) ,OUFERV( 20) , 

2  OASV«  3) 

COMMON/ S I GTWO/OXFSV,OYFSV,ODUMVAtODUMVB,ODUMVC,OUFV,OUFAV,OXF, 

1  MSEOVO,NSENSO,NWAITOrNPOSO,NMINTO,NMEASO,NFSENOtNTIMSO,LSENSf 

2  NFLGAtNFLGB,NFLGC,NFLGD,NFLGEtNTYPOO,NTYPIOtMODVOtNOtNRO, 

3  ODTtODTE,OUFMAX,MODEOtOGA,OGBtOUFERV,IDUMVO,OASV,NCVELO 
SIGMA  2  DIMENSION  STATEMENTS  END 

1000  FORMATI / , 13X , 2HT= , F 1 5 .6 , 8X , 7HP IN0EX= , F 1 5, 6 ) 

1001  FORMATi 7H  RESPON) 

1002  FORMAT( 12X,3HXFV) 

1003  FORMATI 12X,3HUFV) 

1004  FORMAT( 11X,4HUFAV) 

1005  FORMAT( 7F15.6) 

1006  FORMAT( 1 1 X , 4HXFMN , lOX , 5HXF S IG , lOX , 5HAMB I G, 9X , 6HXFME AS , 

1  llX,4HXFSWt9X,6HXFLA$T, 10X,5HLSENS) 

1007  FORMAT(  10X,5HJMEAS, lOX, 5HJWAIT, lOX , 5H JSENS t lOX , 5H I  SENS, lOX, 
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1 

5HXFACTt9X,6HPINDEXtl0Xt5HFS0iJT) 

EAM31310 

1008 

FORMAT( 10Xt5HFSERRt7Xt8HFSPINDEX,5X, lOHFSNOIS  SI G, 9X t 6HF SNO I Sf 

EAM31320 

1 

8X,7HRPINDEX) 

EAM31330 

1009 

FORMAT( llXt4HXFAV) 

EAM31340 

C 

EAM31350 

GO  TO  < If2t3t4t5,6) tNENTRY 

EAM31360 

C 

EAM31370 

c 

INPUT  DATA 

EAM31380 

1 

PRINT  1001 

EAM31390 

CALL  RANDPDI 4, DT , TPRNT , TEND t DTNO I S , DA, DA, DA t 4 ) 

EAM31400 

CALL  IRANDP(  1 ,NSSRUN , I  A, I  A , I A , I  A, I  A, I  A ,4 ) 

EAM31410 

RETURN 

EAM31420 

c 

EAM31430 

c 

INITIALIZE  SYSTEMS 

EAM31440 

2 

T=:0*0 

EAM31450 

ST=0.0 

EAM31460 

STN=0,0 

EAM31470 

STP=0,0 

EAM31480 

NTIMS0=1 

EAM31490 

C 

INITIALIZE  THE  MIRROR  FIGURE  CONTROL  SYSTEM 

EAM31500 

CALL  FSMDL<  2,1 ) 

EAM31510 

CALL  MIRMDLI  2, I ) 

EAM31520 

C«*##*STATEMENT  TO  RESET  VALUE  OF  G  A I  NV(  1 )  =  PARV(  1  AM3 1530 

GAINV( 1)=PARV( 1) 

EAM31540 

C=)c*#:!!*STATEMENT  to  RESET  VALUE  OF  GAINV(  1 )  =PARV(  1  )**#*=*‘*=«####=)‘#=S'=«‘#=i‘*#*>i‘*EAM31550 

CALL  MAINA( 2) 

EAM31560 

CALL  MAINA(4) 

EAM31570 

c 

RETURN  TO  SIGMA  2  TO  INITIALIZE  EAMCS 

EAM31580 

c 

EAM31590 

IGO=MODV(  11) 

EAM31600 

c 

TEST  REMOTE  TERMINAL  CONTROL  VIA  TYPCON  IF  M0DV(11)=2 

EAM31610 

IA-8 

EAM31620 

GO  T0( 2201,2202) ,IGO 

EAM31630 

2202 

IA  =  2 

EAM31640 

2201 

CONTINUE 

EAM31650 

C 

EAM31660 

IG0=M0DV{12) 

EAM31670 

GO  TO  ( 2002,2000) , IGO 

EAM31680 

2000 

CALL  MARK!  1,22,IA,7,4) 

EAM31690 

RETURN 

EAM31700 

C 

EAM31710 

(2^:$cs}c:«c4:EAM  SOFTWARE  TEST 

2002 

CALL  EAMCS( lA) 

EAM31730 

(^s}t:4c:^:i;3{c0AM  SOFTWARE  TEST 

4 

CALL  PLRT( 2,XV,TEND,DT,NRUN) 

EAM31750 

RETURN 

EAM31760 

C 

EAM31770 

C 

PERFORM  SIMULATION 

EAM317ftO 

3 

CONTINUE 

EAM31790 

C 

CHECK  TO  SEE  IF  SENSE  SWITCH  NSSRUN  IS  RESET  IF  M0DV(1)=1 

EAM31800 

IG0=M0DV(  1) 

EAM31810 

GO  T0( 2011,2007) , IGO 

EAM31820 

2011 

CALL  TYPOUTI NSSRUN,!) 

EAM31830 

2010 

CONTINUE 

EAM31840 

IF( SNSWT( NSSRUN) ) 20 10 , 2020 , 2020 

EAM31850 

2020 

CONTINUE 

EAM31860 

C 

EAM31870 

220 
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C  START  RUN  BY  SETTING  SENSE  SWITCH  NSSRLiN  IF  M0DV(1)  =  1 

2012  CALL  TYPOUTI NSSRUNt 1) 

2004  CONTINUE 

IFi SNSWK  NSSRUN) ) 2007 ♦ 2004 , 2004 

STOCHASTIC  STRUCTURAL  DISTURBANCE  GENERATOR 

2005  IF( T+DTH-STN)2052f 2053,2053 
2053  STN=STN+DTNOIS 

CALL  N01S( 3) 

OUTPUT  PRINTED  DATA 
205?  1F(  T  +  DTH*«ST)?008,?006,?006 

2006  CONTINUE 
OUTPUT  PRINT 

PRINT  1000,TtD0MV( 13) 

IGOrMODV(B) 

GO  T0<  2100,2101) , IGU 

2100  PRINT  1009 

CALL  MXRNP( XFAV,1,N,3) 

2101  PRINT  1002 

CALL  MXRNP( XFV,1,N,3) 

PRINT  1003 

CALL  MXRNPI UFV,1,NR,3) 

PRINT  1004 

CALL  MXRNP( UFAV,1,NR,3) 

PRINT  1006 

CALL  MXRNP( DOMV, 1,7,3) 

PRINT  1007 

PRINT  1005,( DOMV(  I  )  , I  =  B, 14) 

PRINT  lOOB 

PRINT  1005, ( DOMV{ I ), 1=15,19) 

OUTPUT  PRINT 
ST=ST+TPRNT 
2008  CONTINUE 

AUXILLIARY  PLOTTED  DATA 
AUXILLIARY  PLOTTED  DATA 

OUTPUT  PLOTTED  DATA 
STORE  DATA  IF  MODV(2)=2 
IG0=M0DVI2) 

GO  T0( 2103,2102) , IGO 

2102  CALL  PLRT( 4,XV,T,DT,NRUN) 

GO  TO  2104 

PLOT  DATA  ONLINE  IF  MnDV(2)=l 

2103  CALL  PLRTI 8,XV,T,DT,NRUN) 

INCREMENT  COMPUTER  TIME 

2104  T=T+DT 

T=TEND 

IF( T+DTH-TEND)2007, 2001, 2001 

C  EXPERIMENTAL  ACTIVE  MIRROR  SIMULATION  COMPUTATIONS 

2007  IGO=MOOV(12) 

GO  TO  (2106,2105) ,IGO 


EAM31880 

EAM31B90 

EAM31900 

EAM31910 

FAM31920 

EAM31930 

EAM31940 

EAM31950 

EAM31960 

EAM31970 

EAM319B0 

FAM31990 

EAM32000 

FAM32010 

EAM32020 

EAM32030 

FAM32040 

FAM32050 

EAM32060 

EAM32070 

EAM32080 

EAM32090 

FAM32100 

EAM32110 

EAM32120 

EAM32130 

EAM32140 

EAM32150 

EAM32160 

EAM32170 

EAM321fi0 

EAM32190 

FAM32200 

EAM32210 

EAM32220 

EAM32230 

EAM32240 

EAM32250 

EAM32260 

EAM32270 

EAM32280 

EAM32290 

EAM32300 

EAM32310 

EAM32320 

EAM32330 

EAM32340 

EAM32350 

EAM32360 

EAM32370 

EAM32380 

EAM32390 

EAM32400 

EAM32410 

EAM32420 

EAM32430 


C=«'=«'=*=^=^EAM  SOFTWARE  TEST  COD  I  A  M3  2440 
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2106  CALL  EAMCS(4)  EAM32450 

GO  TO  5  EAM32460 

SOFTWARE  TEST  CODI  E  AM32470 

2105  CALL  MARK( It22t4,7f5)  EAM32480 


2121 

2122 

2001 


RETURN 
CONTINUE 

SIMULATION  CYCLE 
TERMINATE  RUN  IF 
AND  M0DV(  1)  =  1 
IG0=M0DV(  1 ) 

GO  T0( 2122t2005) 

IF( SNSWT( NSSRUN) ) 2005 ♦ 2001 , 2001 
RETURN 


TERMINATION 

SENSE  SWITCH  NSSRUN  IS  RESET 


.IGO 


OPERATE 

RETURN 

END 


THE  FIGURE  CONTROL  SYSTEM 


EAM32490 

EAM32500 

EAM32510 

EAM32520 

EAM32530 

EAM32540 

EAM32550 

EAM32560 

EAM32570 

EAM32580 

EAM32590 

EAM32600 

EAM32610 

EAM32620 

EAM32630 

EAM32640 


C 

C 


C 


C 

C 


C 


C 


SUBROUTINE  S I MSYS( NENTRY ) 


MAIN  CONTROL 


PROGRAM  FOR  SIMULATION 


SIGMA  5  TYPE  A  DIMENSION  STATEMENTS  START 

DIMENSION  XFV( 20) ♦UFV( 20) , ASCALV( 20) tFSCALV(  20 ) t XFSV( 20 ) t 

1  YFSV( 20) ,XFRV(  20) ,00MV<  20) tUFAV(  20) ,OUMVA(  20) tGAINV( 10) , 

2  GAINM( 1600),ASV( 3) 

COMMON/BLKEAM/XFVfUFV»ASCALV,FSCALV,XFSVtYFSVtXFRVtOOMV»UFAV, 
1  DUMVA, GAINV,GAINM, ASV 


DIMENSION  LACTV( 20) 

COMMON/BKIEAM/L ACTVfNCVEL ,N,NR»NRAtMODE,MODOPTNSNSWT,NTYPI t 
1  NTYPOtNPUNCHtNMAGfNSENStNWAITrNPOStNMINTTNMEASfNFSENSrNTIMS 

DIMENSION  AM( 400) ,AIM< 400) 

COMMON/BLKMFC/AM,AIM 

COMMON/BLKT/TtDT,OTHtDTPLOT,DTNOIS,TPHI ,TPRNT»TENO 

DIMENSION  IAV( 30)t IBV(  30)tICV(  30 ) , I DV(  30 ) t I EV(  30 ) t 

1  JCXV(  10) » JCPV(  10) t JICPV(  10) ,CXV(  10) tCPVi  10) t ICPV( 10) t 

2  CXM(  100)  tCPM(  100)  t  ICPM(  100),NMCXV(  10)tNMCPV(  lOtNMICPVC  10)  t 

3  M0DV(20) 

COMMON/BLKIV/IAV,NIAV, IBVtNIBVt ICV^NICV t I DV,NI DVt I EVtN I EVt NX»NU, 

1  NCXVfNCPVtNICPVt JCXVt  JCPV t JICPV,CXV ,CPV, ICPV tCXMfCPM, ICPMt 

2  NMCXVtNMCPVtNMICPVtMODV 

DIMENSION  XV(  50) ,NAMV( 50) tOUMV<  20) ,DUMM( 400)tPARV( 50) t IPARV<  50) t 
1  SXV(  50)  ,SPARV(  50)  tISPARV(  50)/IDUMV(  20) 
COMMON/BLKSIM/XV,NAMVtDUMV,DUMM,PARVf IPARVtSXVrSPARVt ISPARVt 
1  IDUMV 

DIMENSION  AMM( 400) ,WV( 20) tOUMBV( 20) t XFAV( 20) tXFDV( 20) 


EAM32650 

EAM32660 

EAM32670 

EAM32680 

EAM32690 

EAM32700 

EAM32710 

EAM32720 

EAM32730 

EAM32740 

EAM32750 

EAM32760 

EAM32770 

EAM32780 

EAM32790 

EAM32800 

EAM32810 

EAM32820 

EAM32830 

EAM32840 

EAM32850 

EAM32860 

EAM32870 

EAM32880 

EAM32890 

EAM32900 

EAM32910 

EAM32920 

EAM32930 

EAM32940 

EAM32950 

EAM32960 

EAM32970 

EAM32980 

EAM32990 
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1000 
1001 
100? 
100  3 

1004 
100^ 
100^ 
I  0 1 
1011 
10?0 
10?1 
10?? 
10?  3 


CnMMON/BLKMDL/AMMt WVtOOMPVtXF AVtXFDV 
SIGMA  b  TYPF  A  DlMENSlUN  STATEMENTS  END 


SIGMA  ?  DlMFNSldN  STATEMENTS  START 

DIMENSION  0XESV( ?0) tOYFSVI ?0) tQOdMVAI ?0) ♦ODUMVBI ?0) ♦ODUMVCI ?0) , 
1  OUFVl  20)  tOUFAVI  ?0)  ,MSf  OVO(  20)  fMODVOI  20)  ,  lOUMVOI  10)  tODFERVI  ?())  , 
?  OASV(  3) 

COMMON/SIGTWO/OXFSV»OYFSV»QnUMVAtOnUMVB,ODUMVC,OUFV»OUFAVtOXFt 
I  MSE0V0»NSENS0,NWA1 TO , NPOSO t NM ! NTO , NMF ASO ^ NF SEND t NT  I MSQ ♦ L SENS, 

?  NFLGAtNFLGB,NFLGCfNFLGr),NFLGE,NTYPn0,NTYP10,MnnV0,NQ,NRQ, 

3  ODTtODTEtOUFMAXtMUDt  OtOGA,OGB,Ol)FFRV,  IDOMVOtOASVtNCVFLO 
SIGMA  2  DIMENSION  STATEMENTS  END 

FORMAT!  7H  SIMSYS) 

FORMAT! 3X,1H»,PA4,4X,0A4) 

F0RMAT!3X,1H  ,  0A4 , 3X  1 1 ,  9A4  ) 

SIMDL  ATION  TIMING  DATA) 

RUN  SET  IDENTIFICATION  AND  NUMBER  OF  RUMS,/) 
PLOTTING  DATA) 

data  modifications  FOR  RUNS,/) 

7HNFW  RUN,7X,SHNRUN=,  I  1  0,4X  ,6HNRUNC=  ,  1  *5  ,  /  ) 


FORMAT!  /,?3H 
FORMAT!  / ,4?H 
FORMAT!  /, 14H 
FORMAT!  / ,28H 
FORMAT!  /, IX, 

FORMAT!  IHl  ) 

FORMAT!  1RA4) 

FORMAT!  /  ,1X,  lEHOPERAT ING  MODES*,/ ) 
FORMAT!  / ) 

FORMAT! 62H  THE  MARSHALL  SPACE 
ISYSTFM, /,s:^H  DEVELOPED  BY  THE 
?  /  ) 


FLIGHT  CENTER  MIRROR  FIGURE  CONTROL 
MIT  CHARLES  STARK  DRAPER  LABORATORY 


EAM33000 

EAM33010 

FAM33020 

EAM33030 

FAM33040 

EAM33050 

FAM33060 

EAM33070 

EAM3308n 

EAM33090 

FAM33100 

EAM33110 

FAM33120 

EAM33130 

FAM33140 

FAM33150 

EAM33160 

EAM33170 

EAM331R0 

EAM33190 

FAM33200 

FAM33210 

FAM33220 

EAM33230 

FAM33240 

EAM33250 

FAM33260 

EAM33270 

,EAM33280 

EAM33290 


GO  TO  ! 1,2»3,4,S,6) tNENTRY 

READ  AND  PRINT  PROGRAM  HEADING  CONSISTING  OF  N  CARDS  IN  A 
FORMAT 

1  CALL  IRANDP! 1,N,IA,1A,1A,1A,IA,IA,4) 

DO  2008  1  =  1, N 

READ  1020,! NAMV! J) , J=l,18) 

PRINT  1020,! NAMV! J ) , J=I, 18) 

2008  CONTINUE 

PRINT  1011 
PRINT  1023 
PRINT  1000 

READ  IN  BASIC  SIMULATION  DATA 

READ  MODV  AND  IDENTIFY  OPERATING  MODES 

NM0DV=12 

CALL  IMXRNP!  MODV , 1 , NMODV , 4 ) 

PRINT  1021 

DO  2005  1=1, NMODV 

READ  1020,!  NAMV!  vl)  ,J=1,  IS) 

IGO  =  MODV(  I  ) 

GO  TO! 2006,2007) , IGO 

2006  PRINT  1001,!  NAMV!  J)  ,  J=1 ,9) ,! NAMV! J ) , J=10, 18) 

GO  TO  2005 

2007  PRINT  1002,!  NAMV!  J) , J=l,9) ,!  NAMV!  J)  ,J=10,1B) 

2005  CONTINUE 

PRINT  1022 

TRANSFER  MODV  DATA  TO  THE  SIGMA  2 
DO  2010  1=1, NMODV 
2010  MODVO! I )=MODV! I ) 


FAM33300 

EAM33310 

FAM33320 

FAM33330 

FAM33340 

EAM33350 

EAM33360 

EAM33370 

EAM33380 

EAM33390 

EAM33400 

EAM33410 

EAM33420 

EAM33430 

EAM33440 

EAM33450 

EAM33460 

EAM33470 

EAM33480 

EAM33490 

EAM33500 

EAM33510 

EAM33520 

EAM33530 

EAM33540 

EAM33550 

EAM33560 

EAM33570 

EAM33580 

EAM33590 

EAM33600 

EAM33610 
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c 

PRINT  1003 

C  READ  IN  RESPON  DATA 
CALL  RESPOND  1) 

DTH=DT/2.0 

C 

C  READ  IN  STARTING  RUN  NUMBER  AND  TOTAL  NUMBER  OF  RUNS  TO  BE  MADE 
PRINT  1011 
PRINT  1004 

CALL  IRANDPI  2 , NRUN , NRUNM r I  A , I  A 1 1  A , I A 1 1  A, 4 ) 

C 

NRUNC=0 

NXV=50 

NPV=50 

NIPV=50 

C  SET  SIMULATION  VALUES  TO  ZERO  INITIALLY 

DO  2100  I=ltNXV 

2100  XV(  I )=0.0 

DO  2101  1=1, NPV 

2101  PARVI I )=0*0 

DO  2102  I=1,NIPV 

2102  IPARV( I )=0 
C 

C  READ  IN  NAMES  AND  NUMBERS  OF  EDITED  ELEMENTS 
PRINT  1000 
PRINT  1006 

CALL  IRANDP( 3,NCXV,NCPV,NICPV, I  A, I  A,  I  A,  I  A,  4  ) 

CALL  NPDRNPI DUMV , JCXV,NMCXV , 1 ,NCX V ,4 ) 

CALL  NPDRNP(  DUMV, JCPV , NMCPV, 1 ,NCPVt 4 ) 

CALL  NPDRNP( DUMV, JICPV,NMICPV,1,NICPV,4) 

C 

IGO=MODV(  1 ) 

GO  T0( 2003,2002) , IGO 
C 

C  AUTOMATIC  MODE 

C  READ  STORED  VALUES  OF  PARV  AND  IPARV 

2002  CALL  MXRNP( CXM,NRUNM,NCXV,4) 

CALL  MXRNP( CPM,NRUNM,NCPV,4) 

CALL  IMXRNPI ICPM,NRUNM,NICPV,4) 

C 

C  READ  DATA  IN  SUBROUTINES 

PRINT  1011 

2003  CALL  TYPOUTI  I  A, 4) 

PRINT  1005 

CALL  PLRT( 1,XV,T,DT,NRUN) 

C 

C  INITIALIZE  DATA  STORAGE  FILE 

2004  CALL  PLRT( 2,XV,TEND,DT,NRUN) 

NRUNC=0 

IF( NRUN)2110, 2110, 2120 

2110  NRUN=1 

C  ESTABLISH  NEW  FILE 

2111  CALL  PLRT( 3,XV,T,DT,NRUN) 

GO  TO  2121 

C  FIND  START  OF  RUN  IN  OLD  FILE 

2120  CALL  PLRT( 5,XV,T,DT,NRUN) 

GO  TO  2111 

2121  CONTINUE 
PRINT  1011 

C 

C  READ  IN  DATA  FOR  THE  EXPERIMENTAL  ACTIVE  MIRROR 

CALL  MFCSi  1) 

CALL  MAINAI 1) 


EAM33620 

EAM33630 

EAM33640 

EAM33650 

EAM33660 

EAM33670 

EAM33680 

EAM33690 

EAM33700 

EAM33710 

EAM33720 

EAM33730 

EAM33740 

EAM33750 

EAM33760 

EAM33770 

EAM33780 

EAM33790 

EAM33800 

EAM33810 

EAM33820 

EAM33830 

EAM33840 

EAM33850 

EAM33860 

EAM33870 

EAM33880 

EAM33890 

EAM33900 

EAM33910 

EAM33920 

EAM33930 

EAM33940 

EAM33950 

EAM33960 

EAM33970 

EAM33980 

EAM33990 

FAM34000 

EAM34010 

EAM34020 

EAM34030 

EAM34040 

EAM34050 

EAM34060 

EAM34070 

EAM34080 

EAM34090 

EAM34100 

EAM34110 

EAM34120 

EAM34130 

EAM34140 

EAM34150 

EAM34160 

EAM34170 

EAM34180 

EAM34190 

EAM34200 

EAM34210 

EAM34220 

EAM34230 

EAM34240 
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TRANSFER  EAM  DATA  TO  XVtPARV  AND  IPARV 

DEFINE  UTILIZED  DIMENSIONS  OF  XVtPARV  AND  IPARV 

NXMAX=0 

NPARV=10 

NIPARV=10 

XV  IS  NOT  USED  FOR  DATA  STORAGE  AT  THE  MOMENT 
CONTENTS  OF  PARV=GAINV 

GAIN  DT  TEND  FSTFLT  PACTTC 

ASCALE 
GAINV( 2)=DT 
GAINV( 3)=TEND 
DO  2131  I=ltNPARV 
131  PARV( I )=GAINV( I ) 

CONTENTS  OF  IPARV 

NSENS  NWAIT  NPOS  NMINT  NMEAS 

MODOP 
IPARV( 1 )=NSENS 
IPARV(  2)=NWAIT 
IPARV( 3)=NPOS 
IPARV( 4)=NMINT 
IPARV( 5)=NMEAS 
IPARV( 6)=NTIMS 
IPARV( 7)=MODOP 

STORE  XVtPARVt  AND  IPARV  IN  SXVtSPARVt  AND  ISPARV 
CALL  MCPY( XVtSXVt 1 tNXMAXtO) 

CALL  MCPY( PARVtSPARVt 1 tNPARVtO) 

CALL  IMCPY( IPARVt ISPARVtltNIPARVtO) 


REINITIALIZE  SIMULATION 
2  PRINT  lOlOtNRUNtNRUNC 
T=0*0 

RESET  XVtPARV  AND  IPARV  TO  ORIGINAL  VALUES 
CALL  MCPY( SXVtXVtl tNXMAXtO) 

CALL  MCPY( SPARVtPARVtltNPARVtO) 

CALL  IMCPY( ISPARVt IPARV tltNI PAR VtO) 

IGO=MODV(  1) 

GO  TO( 2401t2402) tIGO 

MANUAL  MODE 

READ  IN  NEW  VALUES  AND  EDIT  XVtPARV  AND  IPARV 

2401  CALL  EDITAI XVtCXV, JCXVtNCXVt2) 

CALL  EDITA( P ARV t CPV t JCPV t NCP V t 2 ) 

CALL  IEDITA(  I PARVt ICPV, J ICPVtNICPVt 2  ) 

2402  IG0=M0DV(1) 

GO  T0(  2200,2400), I  GO 

AUTOMATIC  MODE 

EXTRACT  NEW  VALUES  FROM  MEMORY 
2400  IF( NRUNC-NRUNM) 2 103 t 2 108,2108 
2108  RETURN 
2103  1A=NRUNC+1 

DO  2105  I=ltNCXV 

2105  CXV( I )=ELM( CXM, lAt I tNRUNM) 

DO  2106  I=ltNCPV 

2106  CPVn  )  =  ELM(  CPM,  lAt  I  tNRUNM) 

DO  2107  I=1,NICPV 

2107  ICPVC  I)  =  IELM(  ICPM , I A , I , NRUNM ) 


EAM34250 
EAM34260 
EAM34270 
EAM34280 
EAM34290 
EAM34300 
EAM34310 
EAM34320 
FSNSIG  EAM34330 
EAM34340 
EAM34350 
EAM34360 
EAM34370 
EAM34380 
EAM34390 
NTIMS  EAM34400 
EAM34410 
EAM34420 
EAM34430 
EAM34440 
EAM34450 
EAM34460 
EAM34470 
EAM34480 
EAM34490 
EAM34500 
EAM34510 
EAM34520 
EAM34530 
EAM34540 
EAM34550 
EAM34560 
EAM34570 
EAM34580 
EAM34590 
EAM34600 
EAM34610 
EAM34620 
EAM34630 
EAM34640 
EAM34650 
EAM34660 
FAM34670 
EAM34680 
EAM34690 
EAM34700 
EAM34710 
EAM34720 
EAM34730 
EAM34740 
EAM34750 
EAM34760 
EAM34770 
EAM34780 
EAM34790 
EAM34800 
EAM34810 
FAM34820 
EAM34830 
EAM34840 
EAM34850 
EAM34860 
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2200 


2134 


2.133 


EDIT  XVtPARV  AND  I PARV 
CALL  EDITA( XVtCXV,JCXVtNCXVt3) 

CALL  E0ITA( PARVtCPV, JCPVfNCPVT3) 

CALL  IEDITA(  I P ARV 1 1 CPV , JI CPV ,NI CPV  ,3 

PRINT  MODIFIED  VALUES  OF  XV, PARV  AND 
CALL  NPDRNPi CXV, JC XV , NMCXV , 1 , NCX V, 7 ) 
CALL  NPDRNP( CPV, JCPV ,NMCPV, 1 ,NCPVt7 ) 
CALL  NPDRNPI DUMV, I CPV ,NM ICPV, 1 tN I CPV, 8 

CONTINUE 

TRANSFER  XV, PARV  AND  IPARV  DATA  TO  THE 
DT=PARV( 2) 

TEND=PARV( 3) 

NSENS=IPARV( 1) 

NWAIT=:IPARV(  2) 

NPOS=IPARV( 3) 

NMINT=:IPARV(  4) 

NMEAS=IPARV( 5) 

NTIMS=:IPARV(  6) 

M000P=IPARV( 7) 

CALL  MCPY( PARV,GAINV,1,NPARV,0) 

INITIALIZE  THE  EXPERIMENTAL  ACTIVE 
IGO=MODV( 12) 

GO  TO  ( 2133,2134) , IGO 
CALL  MARK( 1,7, 2,1 ,4) 

RETURN 

CALL  RESPON( 2) 

SIMULATE  EXPERIMENTAL  ACTIVE  MIRROR 


EAM34870 

EAM34880 

EAM34890 

EAM34900 

EAM34910 

EAM34920 

IPARV  FOR  CHECK  PURPOSES  EAM34930 

EAM34940 
EAM34950 
EAM34960 
EAM34970 
EAM34980 
EAM34990 

EXPERIMENTAL  ACTIVE  MIRROR  EAM35000 

EAM35010 
EAM35020 
EAM35030 
EAM35040 
EAM35050 
EAM35060 
EAM35070 
EAM350B0 
EAM35090 
EAM35100 
EAM35110 

RROR  EAM35120 

EAM35130 

EAM35140 

EAM35150 

EAM35160 

EAM35170 

EAM35180 

EAM35190 

EAM35200 


4  IG0=M0DV{12) 

GO  TO  ( 3,2136) ,IG0 
2136  CALL  MARK( 1,7,3, 1,5) 

RETURN 

3  CALL  RESPON( 3) 

TERMINATE  SIMULATION  RUN 
IDENTIFY  END  OF  RUN 

5  CALL  PLRT( 9,XV,T,DT,NRUN) 

INCREMENT  DATA  FILE  PARAMETERS 
NRUN=NRUN+1 

CALL  PLRT( 3,XV,T,DT,NRUN) 

NRUNC=NRUNC+1 

TERMINATE  360  PLOTTING  ROUTINE 
IF( NRUNC-NRUNM)2, 2500, 2500 
2500  CALL  PLRT{ 12,XV,T,DT,NRUN) 

GO  TO  I 

EDIT  DATA  TO  CORRESPOND  TO  NRUNC=NFLGC 

6  NRUNC  =  NFLGC--1 
GO  TO  2 


END 


EAM35210 

EAM35220 

EAM35230 

EAM35240 

EAM35250 

EAM35260 

EAM35270 

EAM35280 

EAM35290 

EAM35300 

EAM35310 

EAM35320 

EAM35330 

EAM35340 

EAM35350 

EAM35360 

EAM35370 

EAM35380 

EAM35390 

EAM35400 

EAM35410 

EAM35420 

EAM35430 

EAM35440 

EAM35450 

EAM35460 

EAM35470 
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SUBROUTINE  STOREOi  NENTR Y , R ANGt W I DTH , SP AC t SC AL V , X , Y t XSPREO , NPL OT V, 
1  NPTSfNRUN) 

C 

DIMENSION  SCALV(  1)  »X(  1  )  t Y(  1 ) , TI TL E(  2 ) ,HEADNG(  10) 

C 

DOUBLE  PRECISION  PROB , PROG » P AP ER ♦ TYP I NK 
C 

DATA  PROBtPROGtPAPERtTYPINK  /RHM9040  ,8H6362  ,BHWHITE  , 

1  8HBLACK  / 

DATA  TITLE/'NRUN' » •  =  •/ 

DATA  HEADNG/»EXPE*  ♦  »RIME»  T 'NTAL  S  •  ACTSMVE  S'MIRRS'OR  S», 

1  •  IMUL*  , ‘ATIOS'N  »/ 

C 

1000  FORMATS  7H  STORED) 

C 

GO  T0( Illlt2222t3333,4444) fNENTRY 

DATA  INPUT 
1111  PRINT  1000 

CALL  RAN0PD( 3,RANG»WIDTH,SPACfDA,0AtDA,0A,4) 

CALL  NEWPLTi PRORtPROGrPAPERtTYPINK) 

XBEGIN=0*0 

XEND=0*0 

RETURN 

INITIALIZATION 
2222  0IST==SPAC  +  2.0«RANG 

DY  =  NO*  OF  INCHES  PER  ABSCISSA  UNIT 

DY=WIDTH/XSPRED 

SPRED=XSPRED 

RETURN 

3333  CONTINUE 

DO  500  I=1,NPTS 
CONVERT  X  VECTOR  TO  INCHES 
500  X(  I  )=X(  I  )^DY 

CREATE  NEW  REFERENCE  POINT 
XNEW=XEND+2*0^( SPAC+RANG) 

CALL  PLOTK  XNEWtO.t-3) 

LABEL  EACH  SET  OF  PLOTS 
DA  =  -(  2.0^J'SPAC) 

DB  =  0*5*{^SPAC 
DC=8.0*0B 

CALL  SYMBL5( DA tO.Ot DBtHEADNG t 90*0 »40 ) 

DA=-SPAC 

CALL  SYMRL5{  D  A  t  0 . 0 1  DP  t  T  I  TL  E  ,  90 .0, 8  ) 

CALL  NUMBRK  DA , DC t OR , NRUN t 90. 0, -1 ) 

C 

C  PLOT  THE  NPLOTV  GRAPHS 

I  I  1  =  0 

DB=0.20^SPAC 
DC=WIDTH+SPAC 
DO  540  J=l, NPLOTV 
C 

C  DRAW  ABSCISSA 


EAM35480 

EAM35490 

EAM35500 

EAM35510 

EAM35520 

EAM35530 

EAM35540 

EAM35550 

EAM35560 

EAM35570 

EAM35580 

EAM35590 

EAM35600 

EAM35610 

EAM35620 

EAM35630 

EAM35640 

EAM35650 

EAM35660 

EAM35670 

EAM35680 

EAM35690 

FAM35700 

EAM35710 

EAM35720 

EAM35730 

EAM35740 

FAM35750 

EAM35760 

EAM35770 

EAM35780 

EAM35790 

EAM35R00 

EAM35810 

FAM35820 

EAM35830 

EAM35840 

EAM35850 

EAM35860 

EAM35870 

EAM35880 

EAM35890 

EAM35900 

EAM35910 

EAM35920 

EAM35930 

EAM35940 

EAM35950 

EAM35960 

EAM35970 

EAM35980 

EAM35990 

EAM36000 

EAM36010 

FAM36020 

EAM36030 

EAM36040 


227 


oo  n  ooo  oo  on  oo 


CALL  PLOTK  XBEGIN,0.0t3) 

XEND=XBEGIN+2.0*RANG 
CALL  PLOTK  XENOrO.O,?) 

DRAW  ORDINATE 

XMIDDL=XBEGIN+RANG 

CALL  PLOTK  XMIDDLtO. 0,3) 

CALL  PLOTK  XMIDDL, WIDTH, 2) 

LABEL  WITH  SCALE  VALUE 
DA=XBEGIN-0.10^SPAC 

CALL  NUMBRK  DA,0*0,DB,SCAL V( J) ,90.0t6) 

CALL  NUMBRK  DA,DC,DB,J,90.0,-1 ) 

XBEGIN=XBEGIN+DIST 
YYY=RANG+( J-1)*DIST 

PLOT  DATA  ON  COORDINATES 
DO  530  I^UNPTS 
00  530  I=1,NPTS 
III=III+1 

NEGATE  Y  TO  ACCOUNT  FOR  ROTATION  OF  90  DEGREES 
X  =  --Y  FORMER 
Y=X  FORMER 
Y( III )=-Y( III )+YYY 
530  CONTINUE 

JJJ  DENOTES  THE  BEGINNING  OF  THE  JTH  COLUMN  VECTOR  IN  ARRAY  Y* 
JJJ=I I I-NPTS+1 

CALL  GRAPHS Y( JJJ) ,X,NPTS,0*,0* ) 

540  CONTINUE 

PRINT  THE  ABSISSA  SCALE 
DA=XBEGIN-DIST+2*0*RANG+0, 10«SPAC+DB 
CALL  NUMBRK  DA ,0 .0, OB, O.Ot 90.0f 6 ) 

CALL  NUMBRK  DA, WIDTH,dB,SPRED,90.0,6) 

RETURN 

C 

4444  XEND=XEND+10.0 

CALL  PLOTK  XEND,0.,-3) 

CALL  ENDPLT 
RETURN 
C 

END 


EAM36050 

EAM36060 

EAM36070 

EAM36080 

EAM36090 

EAM36100 

EAM36110 

EAM36120 

EAM36130 

EAM36140 

EAM36150 

EAM36160 

EAM36170 

EAM36iaO 

EAM36190 

EAM36200 

EAM36210 

EAM36220 

EAM36220 

EAM36230 

EAM36240 

EAM36250 

EAM36260 

EAM36270 

EAM36280 

EAM36290 

EAM36300 

EAM36310 

EAM36320 

EAM36330 

EAM36340 

EAM36350 

EAM36360 

EAM36370 

EAM36380 

EAM36390 

EAM36400 

EAM36410 

EAM36420 

EAM36430 

EAM36440 

EAM36450 
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SUBROUTINE  SUPE2 

SUPERVISORY  PROGRAM  FOR  THE  SIGMA  2  SOFTWARE 
SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSV<  20),0YFSV( 20) ,ODUMVA( 20)t0DUMVB( 20) tODUMVC( 20) ♦ 

1  OUFVt 20) tOUFAVl  20) tMSE0V0( 20),M0DV0(  20),IDUMV0(  10 ) ,0UFERV( 20 ) t 

2  0ASV(  3) 

COMMON/S  I GTW0/0XFSVt0YFSV,0DUMVAf0DUMVBt0DUMVCf0UFVt0UFAVf0XFt 

1  MSEOVOfNSENSO»NWAITO,NPOSO,NMINTO,NMEA$OtNFSENO,NTIMSOtLSENSf 

2  NFLGA,NFLGBtNFLGCtNFLGD,NFLGEtNTYPOO»NTYPIO,MOOVOfNO,NROt 

3  0DT,00TE,0UFMAX,M00E0,0GA,0GBt0UFERVt IDUMV0,0ASV,NCVEL0 
SIGMA  2  DIMENSION  STATEMENTS  END 

GO  T0(  1,2, 3, 4) ,NFLGA 

CALLS  TO  ACTCMD 

1  CALL  ACTCMD(  NFLGB) 

GO  TO  2000 

CALLS  TO  EAMCS 

2  CALL  EAMCS(  NFLGB) 

GO  TO  2000 
CALLS  TO  FIGSEN 

3  CALL  FIGSENI NFLGB) 

GO  TO  2000 

CALLS  TO  TYPC0N(  NFLGB) 

4  CALL  TYPCONi  NFLGB) 

PUT  CODING  TO  TRANSFER  CONTROL  TO  SIGMA  5  HERE 
2000  RETURN 

END 


EAM36460 

EAM36470 

EAM36480 

EAM36490 

EAM36500 

EAM36510 

EAM36520 

EAM36530 

EAM36540 

EAM36550 

EAM36560 

EAM36570 

EAM365fiO 

EAM36590 

EAM36600 

EAM36610 

EAM36620 

EAM36630 

EAM36640 

EAM36650 

EAM36660 

EAM36670 

EAM36680 

EAM36690 

EAM36700 

EAM36710 

EAM36720 

EAM36730 

EAM36740 

EAM36750 

EAM36760 

EAM36770 

EAM36780 

EAM36790 

EAM36800 


SUPE5  MAIN  SUPERVISORY  PROGRAM  FOR  THE  SIGMA  5 
SUPERVISORY  PROGRAM  FOR  THE  SIGMA  5  SOFTWARE 
SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSV(  20) ,OYFSV( 20) ,QDUMVA(  20) ,ODUMVB( 20) ,00UMVC( 20) , 

1  0UFV(  20) ,OUFAV( 20) ,MSE0V0( 20) ,MODVO( 20) , IDUMVO(  10) ,OUFERV( 20) , 

2  OASV( 3) 

COMMON/SIGTWO/OXFSV,OYFSV,ODUMVA,ODUMVB,ODUMVC,OUFV,OUFAV,OXF, 

1  MSEOVO,NSENSO,NWAlTO,NPOSO,NMINTO,NMEASO,NFSENO,NTIMSO,LSENS, 

2  NFLGA,NFLGB,NFLGC,NFLGD,NFLGE,NTYPOO,NTYPIO,MOOVO,NO,NRO, 

3  ODT,ODTE,OUFMAX,MODEO,OGA,OGB,OUFERV,IDUMVO,OASV,NCVELO 
SIGMA  2  DIMENSION  STATEMENTS  END 

COMMON/BLKSUP/ITRANS 

INITIALIZATION 
2010  IF( ISTART-9999)2000, 2007, 2000 
C  SET  ISTART=9999  THE  FIRST  TIME  SUPE5  IS  EXECUTED 

2000  ISTART=9999 


EAM36810 

EAM36820 

EAM36R30 

EAM36840 

EAM36850 

EAM36860 

EAM36870 

EAM36880 

EAM36890 

EAM36900 

EAM36910 

EAM36920 

EAM36930 

EAM36940 

EAM36950 

EAM36960 

EAM36970 

EAM36980 

EAM36990 

EAM37000 
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CALL  MARK( 4» lA, lAt I  A, lA) 

EAM37010 

CALL  MARK(  1,1,1,19, 1) 

EAM37020 

IST0RE=0 

EAM37030 

EAM37040 

OPERATION 

EAM37050 

2005 

CONTINUE 

EAM37060 

2004 

IF(  ITRANS-ISTORE)2002, 2002, 2001 

EAM37070 

2001 

CALL  MARK(  2,NFLGA,NFLGB,IA,IA) 

EAM37080 

GO  TO  2003 

EAM37090 

2002 

CALL  MARK( 3,IA,IA,NFLGA,NFLGR) 

EAM37100 

2003 

IST0RE=ITRANS 

EAM37110 

EAM37120 

GO  T0( 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19, 

EAM37130 

1  20,21,21,21,21) ,NFLGA 

EAM37140 

EAM37150 

1 

CALL  SIMSYS( NFLGB) 

EAM37160 

GO  TO  2004 

EAM37170 

2 

CALL  MFCS!  NFLGB) 

EAM37180 

GO  TO  2004 

EAM37190 

3 

CALL  MAINA( NFLGB) 

EAM37200 

GO  TO  2004 

EAM37210 

4 

CALL  MAINB( NFLGB) 

EAM37220 

GO  TO  2004 

EAM37230 

5 

CALL  FSMDLI NFLGB, INDEX) 

EAM37240 

GO  TO  2004 

EAM37250 

6 

CALL  MIRMDL(  NFLGB, INDEX) 

EAM37260 

GO  TO  2004 

EAM37270 

7 

CALL  RESPONi NFLGB) 

EAM37280 

GO  TO  2004 

EAM37290 

8 

CALL  ACTCAL( NFLGB) 

EAM37300 

GO  TO  2004 

EAM37310 

9 

CALL  MIRCAH  NFLGB) 

EAM37320 

GO  TO  2004 

EAM37330 

10 

CALL  ACTMDLl NFLGB, INDEX) 

EAM37340 

GO  TO  2004 

EAM37350 

11 

GO  TO  2004 

EAM37360 

12 

GO  TO  2004 

EAM37370 

13 

GO  TO  2004 

EAM37380 

14 

GO  TO  2004 

EAM37390 

15 

GO  TO  2004 

EAM37400 

16 

GO  TO  2004 

EAM37410 

17 

GO  TO  2004 

EAM37420 

18 

GO  TO  2004 

EAM37430 

19 

GO  TO  2100 

EAM37440 

20 

GO  TO  2100 

EAM37450 

EAM37460 

INSERT  CODING  HERE  TO  TRANSFER  TO  THE  SIGMA  2  COMPUTER 

EAM37470 

21 

NFLGA=NFLGA-20 

EAM37480 

SIGMA  5  CONFIGURATION 

EAM37490 

2008 

CALL  SUPE2 

EAM37500 

EAM37510 

ESTABLISH  TRANSFERS  ON  RETURN  TO  SIGMA  5 

EAM37520 

2007 

CONTINUE 

EAM37530 

GO  T0( 2201,2202,2203,2204,2205,2206,2207,2208,2209,2210, 

EAM37540 

1  2211,2212,2213,2214,2215,2216,2217,2218,2219,2220,2221 ) ,NFLG A 

EAM37550 

EAM37560 

2201 

CALL  MARK( 1,24,2,22,10) 

EAM37570 

GO  TO  2020 

EAM37580 

2202 

CALL  MARK{ 1,24,2,22,11) 

EAM37590 

GO  TO  2020 

EAM37600 

2203 

CALL  MARK( 1,21,5,22,12) 

EAM37610 

GO  TO  2020 

EAM37620 
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2204  CALL  MARK! 1 t 6, 3 t 22 t 7 ) 

GO  TO  2020 

2205  CALL  MARK( 1 ^ 23 , 2 , 22 ♦ 1 3 ) 

GO  TO  2020 

2206  GO  TO  2020 

2207  CALL  MARK(  1 1 10 , 3 , 21 f 4 ) 

GO  TO  2020 

2208  CALL  MARK(  1 , 3 , 6, 22 1 5 > 

GO  TO  2020 

2209  CALL  MARK(  1 , 2 1 » 3 ♦ 22 ♦ 16 ) 

GO  TO  2020 

2210  CALL  MARK(  1,5,5, 22tl7) 

GO  TO  2020 

2211  CALL  MARK(  1,5,3,23,4) 

GO  TO  2020 

2212  CALL  MARK!  1,4,5,24,3) 

GO  TO  2020 

2213  CALL  MARK{  1,4,3,24,8) 

GO  TO  2020 

2214  CALL  MARK( 1,4,4,24,7) 

GO  TO  2020 

2215  GO  TO  2020 

2216  CALL  MARK( 1,23,3,22,14) 

GO  TO  2020 

2217  CALL  MARK( 1,3,7,22,18) 

GO  TO  2020 

2218  CALL  MARK( 1,3,5,22,6) 

GO  TO  2020 

2219  CALL  MARK( 1,2,3,24,2) 

GO  TO  2020 

2220  CALL  MARK( 1 , 2 , 4, 24 , 2 ) 

GO  TO  2020 

2221  CALL  MARK( 1,24,2,22,19) 

GO  TO  2020 

2222  CALL  MARK( 1 , 1 , 6,24 , 2 ) 

C 

2020  GO  TO  2004 
C 

C  RESTART  PROGRAM 

2100  ISTART=0 

GO  TO  2010 
C 

C  INSERT  CODING  TO  TRANSFER  TO  THE  SIGMA  2  HERE 

2009  CONTINUE 
C 

END 


EAM37630 

EAM37640 

EAM37650 

EAM37660 

EAM37670 

EAM37680 

EAM37690 

EAM37700 

EAM37710 

EAM37720 

EAM37730 

EAM37740 

EAM37750 

EAM37760 

EAM37770 

EAM37780 

EAM37790 

EAM37800 

EAM37810 

EAM37820 

EAM37830 

EAM37840 

EAM37850 

EAM37860 

EAM37870 

EAM37880 

EAM37890 

EAM37900 

EAM37910 

EAM37920 

EAM37930 

EAM37940 

EAM37950 

EAM37960 

EAM37970 

EAM37980 

EAM37990 

EAM38000 

EAM38010 

EAM38020 

EAM38030 

EAM38040 

EAM38050 

EAM38060 

EAM38070 

EAM38080 
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SUBROUTINE  TYPCON( NENTRY ) 

SIGMA  2  ROUTINE  FOR  TYPEWRITER  CONTROL  OF  THE  EXPERIMENTAL 
ACTIVE  MIRROR 

SIGMA  2  DIMENSION  STATEMENTS  START 

DIMENSION  OXFSV(  20) ,OYFSV(  20) ,0DUMVA(  20) tODUMVB(  20) ,0DUMVC(  20) t 

1  0UFV(  20) ,0UFAV(  20) tMSE0V0( 20) tMOOVO(  20) t I0UMV0( 10) t0UFERV( 20) t 

2  0ASV(  3) 

COMMON/ S I GT WO/OX F SVtOYFSV, ODUM V A, ODUMVBt ODUM VC, OUFVtOUFAVtOXFf 

1  MSEOVO,NSENSO,NWAlTOtNPOSO,NMINTO,NMEASO,NFSENOtNTIMSQ,LSENS, 

2  NFLGA,NFLGB,NFLGCtNFLGD,NFLGE,NTYPOOtNTYPIO,MODVOfNOtNROt 

3  ODT,OOTE,OUFMAX,MODEO,OGA,OGB,OUFERV,IDUMVO,OASV,NCVELO 
SIGMA  2  DIMENSION  STATEMENTS  END 

1000  FORMAT( IX, A4) 

1001  FORMATS  IIH  WRONG  NAME) 

1002  FORMAT!  1013) 

1003  FORMAT!  7H  NAME=?) 

1004  FORMAT!  4H  I=?) 

1005  FORMAT!  10F12.6) 

1006  FORMAT! 7H  MODE=?) 

1007  FORMAT!  5H  INIT) 
lOOB  FORMAT! 5H  STRT) 

1009  FORMAT! 7H  TYPCON) 

1010  FORMAT!  14H  ACTUATOR  TEST) 

1011  FORMAT!  12H  MIRROR  TEST) 

1012  FORMAT! 7H  MODFIN) 

1016  FORMAT! 5H  STOP) 

1017  FORMAT! 3H  JM ) 

1018  FORMAT!  18H  ACCEPT  NEW  VALUES) 

1019  FORMAT!  12H  NEW  VALUE-?) 

1020  FORMAT!  13H  MODE  TOO  RIG) 

1021  FORMAT!  16H  DIAGNOSTIC  MODE) 

1022  FORMAT!  13H  EDITING  MODE) 

1023  FORMATllBH  PERFORMANCE  INDEX) 

1024  FORMAT!  6H  I,  J  =  ?) 

1025  FORMAT!  12H  RESTART  JOB) 

1026  FORMAT!  /,2HT=,F12. 6,3HJM=:,F12*6  ) 


GO  TO  !  1,2,3,40,6,7,8,9)  , NENTRY 

INITIALIZATION 

1  RETURN 

O^cRATION 

2  CONTINUE 

SELECT  EXPERIMENTAL  MODE 
2280  WRITE! NTYP0,1006) 

READ! NTYPI, 1002)  MODEO 
WRITE! NTYPO, 1002)  MODEO 
ICHNG=2 
C 

GO  TO  !  2211,2212,2213,2214,2215,2216,2217,2218,2219,2220,2221, 
1  2222), MODEO 


EAM38090 

EAM38100 

EAM38110 

EAM38120 

EAM38130 

EAM38140 

EAM38150 

EAM38160 

EAM38170 

EAM38180 

EAM38190 

EAM38200 

EAM38210 

EAM3B220 

EAM38230 

EAM38240 

EAM38250 

EAM38260 

EAM38270 

EAM38280 

EAM38290 

EAM38300 

EAM38310 

EAM38320 

EAM38330 

EAM38340 

EAM38350 

EAM38360 

EAM38370 

EAM38380 

EAM38390 

EAM38400 

EAM3B410 

EAM38420 

EAM38430 

EAM38440 

EAM38450 

EAM38460 

EAM38470 

EAM38480 

EAM38490 

EAM38500 

EAM38510 

EAM38520 

EAM38530 

EAM38540 

EAM38550 

EAM38560 

EAM38570 

EAM38580 

EAM38590 

EAM38600 

EAM38610 

EAM38620 

EAM38630 

EAM38640 

EAM38650 
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C  INITIALIZE  MFCS 

2211  WRITE( NTYPOtlOO?) 

GO  TO  2207 

START  MFCS 

2212  WRITE( NTYPQtlOOS) 

GO  TO  2207 

STOP  MIRROR  FIGURE  CONTROL  SYSTEM 

2213  WRITE! NTYPO, 1016) 

GO  TO  2207 

TEST  ACTUATORS 

2214  WRITE! NTYPO, 1010) 

NFLGA=19 

RETURN 

TEST  MIRROR 

2215  WRITE!  NTYPOtlOll) 

NFLGA=20 

RETUI^N 

DIAGNOSTIC  MODE 

2216  WRITE! NTYPO, 1021) 

GO  TO  2990 

MODIFY  DATA  TO  NRUNC=NFLGC 

2217  READ! NTYPI,1002)NFLGC 
WRITE! NTYP0tl002)NFLGC 
NFLGA=22 

RETURN 

RETURN  TO  SIMSYS(6)  AND  REENTER  TYPCON! 2 ) 

UNUSED  OPERATING  MODE  M0DE0=8 

2218  CONTINUE 
GO  TO  2280 

EVALUATE  AND  TYPE  FIGURE  PERFORMANCE  INDEX 

2219  WRITE! NTYPOt 1023) 

WRITE! NTYP0,1017) 

RETURN  TO  SIGMA  5  TO  CALCULATE  THE  PERFORMANCE  INDEX 

NFLGA=12 

RETURN 

RETURN  TO  MAINB<5)  AND  REENTER  TYPCON! 3) 

TYPE  VALUE  OF  THE  PERFORMANCE  INDEX 
3  WRITE!  NTYP0,1005)QDUMVA!  1) 

GO  TO  2207 

MODIFY  DATA  BUSS  VALUE 

2220  WRITE! NTYPOt 1022) 

SET  ICHNG=1 
ICHNG=1 

WRITE! NTYPOtlOie) 

GO  TO  2990 

UNUSED  OPERATING  MODE  M0DE0=11 


EAM38660 

EAM38670 

EAM38680 

EAM38690 

EAM38700 

EAM38710 

EAM38720 

EAM38730 

EAM38740 

EAM38750 

EAM38760 

EAM38770 

EAM38780 

EAM38790 

EAM38800 

EAM38810 

EAM3B820 

EAM38830 

EAM38840 

EAM38850 

EAM38860 

EAM38870 

EAM38880 

EAM38890 

EAM38900 

EAM38910 

EAM38920 

EAM38930 

EAM38940 

EAM38950 

EAM38960 

EAM38970 

EAM3B980 

EAM38990 

EAM39000 

EAM39010 

EAM39020 

EAM39030 

EAM39040 

EAM39050 

EAM39060 

EAM39070 

EAM39080 

EAM39090 

EAM39100 

EAM39110 

EAM39120 

EAM39130 

EAM39140 

EAM39150 

EAM39160 

EAM39170 

EAM39180 

EAM39190 

EAM39200 

EAM39210 

EAM39220 
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2221  GO  TO  2207 


C 

C 


REQUEST  MODE  AGAIN 
2222  WRITE! NTYPO, 1020) 
GO  TO  2280 


IF  MODE  VALUE  IS  TOO  LARGE 


IDENTIFY  VARIABLE  NAME 
2990  WRITE! NTYP0»1003) 

READ! NTYPI ,1000)  NFLGC 
WRITE! NTYPO, 1000)  NFLGC 
RETURN  TO  SIGMA  5  TO  CATALOG 
NFLGA=13 
IGO=MODVO! 12) 

GO  TO  ! 2995,2994) ,IGO 


AND  CHECK  VARIABLE  NAME 


EAM39230 

EAM39240 

EAM39250 

EAM39260 

EAM39270 

EAM39280 

EAM39290 

EAM39300 

EAM39310 

EAM39320 

EAM39330 

EAM39340 

EAM39350 

EAM39360 


f  1  VJJU  - 

SOFTWARE  TEST  COD  ING*****’*'’^**^*^*'^**^*****’*'’*'^*’^^’^’^*’^’^*’*'^’*'*’^**^^^^^^^^^ 
2995  CALL  MAINB(3)  EAM39380 

8  GO  T0( 5»6f4,2280) tNFLGC  EAM39390 

software  test 


2994  RETURN 


C 

C 


OUTPUT  ERROR  MESSAGE 
WRITER  NTYPOtlOOl) 

GO  TO  2990 


IF  NAME  IS  INCORRECT 


C 

C 


2330 

2331 


IDENTIFY  VARIABLE  INDEX 
WRITE! NTYPOt 1004) 

READ! NTYPItl002)  NFLGD 
WRITE! NTYPO, 1002)  NFLGD 
GO  TO  2330 
WRITE! NTYPOr 1024) 

READ! NTYPI t 1002 )  NFLGD, NFLGE 
WRITE! NTYPI, 1002)  NFLGD, NFLGE 

ACCEPT  NEW  VALUE  IF  ICHNG=1 
GO  TO! 2331,2340) ,ICHNG 
WRITE! NTYP00,1019) 

READ! NTYPI, 1005)  ODUMVA! 1 ) 

RETURN  TO  SIGMA  5  T6  MODIFY  AND/OR  EXTRACT  VALUE  OF  INTERROGATED 
VARIABLE 
2340  NFLGA=:14 

NFLGC=ICHNG 

RETURN 

RETURN  TO  MIINBI4)  AND  REENTER  TYPCON!?) 

DISPLAY  VALUE  OF  INTERROGATED  VARIABLE 
7  WRITE! NTYPO, 1005)  ODUMVA! 1) 

GO  TO  2990 

NORMAL  RETURN  TO  EAMCS 
2207  NFLGA=6 
RETURN 


C 

C 

c 


c 

c 


OUTPUT  EXPERIMENT  DATA  ON  REMOTE  I/O  DEVICE 


WRITE! NTYPO, 1026) 
RETURN 

RETURN  TO  EAMCS 
END 


ODUMVA! 2) ,ODUMVA!  1 ) 


EAM39410 

EAM39420 

EAM39430 

EAM39440 

EAM39450 

EAM39460 

EAM39470 

EAM39480 

EAM39490 

EAM39500 

EAM39510 

EAM39520 

EAM39530 

EAM39540 

EAM39550 

EAM39560 

EAM39570 

EAM39580 

EAM39590 

EAM39600 

EAM39610 

EAM39620 

EAM39630 

EAM39640 

EAM39650 

EAM39660 

EAM39670 

EAM39680 

EAM39690 

EAM39700 

EAM39710 

EAM39720 

EAM39730 

EAM39740 

EAM39750 

EAM39760 

EAM39770 

EAM39780 

EAM39790 

EAM39B00 

EAM39810 
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APPENDIX  B 


EXPERIMENTAL  ACTIVE  MIRROR  LIBRARY  ROUTINE  LISTINGS 


B.  1  EAM  Library  Routines 

Considerable  memory  space  can  be  saved  by  using  subroutines 
to  perform  operations  which  are  repeated  a  large  number  of  times. 
Many  small  subroutines  have  been  developed  at  MIT/DLto  provide 
such  common  operations  as  matrix  multiplication,  data  input  and 
transfer,  etc.  In  the  EAM  software  package  these  subroutines 
appear  as  members  of  three  libraries  described  in  the  following 
sections. 


B.  2  Miscellaneous  Functions  Package 

This  section  presents  listings  of  the  subroutines  which  are 
used  to  perform  a  variety  of  program  operations  associated  with  the 
EAM  but  are  not  considered  important  enough  for  inclusion  in 
Appendix  A.  This  section  describes  the  following  programs. 


SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

subroutine 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

FUNCTION 

FUNCTION 

SUBROUTINE 


£UITa(A»o»1B*NB»NENTRY) 
lEDIf  A(iA»lB*II0»INll»»NENTRY) 
mark (NENTk Y  »nSmA»nT YA»NbBH»NT YB) 

NO  IS (NEnT  RY ) 

REAL!  (TREAD 
REUUaM (NEnTkY) 

SATLIM(X»R»I) 

SON(X) 

SNSW  f (NLNTkY ) 

TYPOUT ( 1»N£NTRY) 
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SUBROUT IME  EDITA  (A»b,  IB ♦N8»'v|EiMTRY) 
SUBROUTINE  TO  tUlT  DAfA 
DIMENSION  A(l)  ♦d(U  »iB(i) 

GO  T0(1»2»J*‘»)  »nENTRY 
READ  N6  AND  IB 

1  CALL  IRANDP(l»Nd»IA*lA»lA»lA»IA»IA»A) 
CALL  IMXRNP<IB» 

RETURN 

READ  NEW  VALUES  AND  CHANGE  A 

2  CALL  MX«NP(a»l»Nb*4) 

CHANGE  A  ONLY 

3  DO  2000  I=l»Nri 
J=IR(I) 

2000  A<J)=B(I) 

return 

STORE  OLD  VALUEb  OE  A  IN  B 

4  DO  2001  I=i*Nd 
J=I8(I) 

2001  B{I)=A{J) 

RETURN 

C 

END 
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SUBROUT  Ii>J£  ItOllAdAflb*  I  IB»NI  B*N£N  1 KT ) 
SUBROUTIiME  TU  tUlT  UATa 
DIMENSION  I  A(l)  tlii  (i)  ,U8(1) 

60  TO ( 1 ♦ 2» 3» 4) tNENTR Y 
READ  NIb  and  lit) 

1  CALL  IRANDP ( 1»N1H» iKf IK« IK» IK* 1K» IK»4) 
CALL  lMXkNP(UB»l*Na*4) 

RETURN 

READ  NEw  YALuEb  AND  ChANbt  lA 

2  CALL  lMXkNP(lt)*l,t4ld*4) 

CHAN6E  lA  ONLY 

3  DO  2000  I=1*N1H 
J=IIb(I) 

2000  IA(J)=Id(I) 

RETURN 

STORE  OLD  VALUED  OF  lA  IN  I4 

4  DO  2001  1=1*N1B 
J=IIb(I) 

2001  IB(I)=IA(J) 

RETURN 

C 

END 
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SUBROUTINE  MARK  (NENTRY  »NSBA»NTYA.NSBtJ,NTYB) 

C 

dimension  NSAV(dO) ♦NTAV (20) .NSBV(20) ♦NTBV(20) 
COMMON/BLKSUP/ 1 f  R ANS 
C 

1000  F0RMAT(17H  TRANbITION  tRROS,5I10) 

C 

GO  TO( 1*2*2»4) tNENTRY 
C 

1  ITRANS=1TRANS*1 

IF (ITRANS-20) 2003, 2003* 2004 
2004  PRINT  1000,ITRANS,tMSBA,NTYA,NSBb,NTYB 
RETURN 
C 

2003  NSAV(ITRANS)=NSBA 
NTAV(ITRANS)=NTYA 
NSBV(ITRANS)=NSB6 
NTBV(ITHANb)=NTYH 
return 

CALL  TO  EXTRACT  OESTIiMATION 

2  IF(irRANS)2000, 2000, 2001 

2000  PRINT  1000,ITRAnS,NSBA,NTYA,NSBB,NTY8 

return 

2001  GO  T0(2002, 2002, 3, '♦), NENTRY 

2002  NSBA=NSAV(1TKANS) 

NTYA=NTAV(ITKANS) 

NSBB=NSBV(lTRANb) 

NTYB=NTBV(ITRANS) 

RETURN 

CALL  TO  EXTRACT  RETURN  ADDRESS  AND 
DECREMENT  TRANSITION  COUNTER 

3  NSB8=NSB\/(ITRANS) 

NTYB=NTbV(ITRANS) 

NSBA=NSAV(ITRANS) 

NTYA=NTAV(ITKANS) 

ITRANS=ITRANS-1 

RETURN 

SET  TRANSITION  COUNTER  TO  ZERO 

4  ITRANS=0 
RETURN 

C 

END 
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SUBROUTINE  NOISCNENTRY) 

SUBROUTINE  TU  GENERATE  DISTURBANCES  ON  SYSTEM 
DUMMY  VERSION 

RETURN 
C 

END 
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SUBROUTINE  REALT (TREAD 

SUBROUTINE  TO  INTERROGATE  REAL  TIME  CLOCK 

treal=real  time 


insert  heal  time  clock  interrogation  software  here 


C*****EAM  software 

COMMON  /BLKT/ 

treal=t 

q***»*EAM  software 


TEST  COOING^^*^^******^*^^**^^^**^****^*^^^***^^^*^^**^^ 

T»(JT*UTH,OTPLOT,UTNOIS,TPHI,TRRNT*TENO 

test  coo ING***************'*^***^^****^*****^*****^****^ 


return 


c 


END 
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SUBROUTINE  RtOUAM ( NEnTH f ) 

C 

C  SUBROUTINE  TO  btNtKATt  AK  AnO  ARR  FROM  A 

C 

C  SIGMA  5  TYPE  B  UlMtNSION  STATEMENTS  START 

DIMENSION  aF\/(2i))  ,UF\/(2u)  ♦ASCALV(20)  »FSCALY(20)  ♦XFbV(20)  * 

1  YFSV (20) jAFRY (20) fOUMV (20) tUFAV (20) tUUMVA (20) tGAlNV { 10) » 

2  GAINM( IbOO) »AbV (3) 

COMMON/BLKEAM/X^  V » UF  V  »  ASCALV  ♦FSCALV  ♦  XFSV » YFS\/»XFRV  ♦OUMY»UF  AV  » 

1  OOMVA»GAlNV»bAlNM,ASV 
C 

DIMENSION  LACTY(20). 

COMMON/BKIEAM/LACTV»NC\/EL»N*NR»NRa»MOUE»MOOOP,NSNSwT  »NTYPI» 

1  NTYPO»NPUNCM»NMAG*NbtNS»N»i(Al  T  ♦NP0S»NMINT  »NM£AS»NF  SENS  ♦NT  I  MS 
C 

dimension  am (AOO) ♦aim (AOO) 

C0MM0N/BLKMFC/AM,AIM 

c 

DIMENSION  1AY(30) ♦IBY (30) ♦ICY (30) ♦IDV (30) ,1EV( 30) ♦ 

1  JCXY (10) ♦ JCPV ( 10) ♦ JICPV ( 10) ♦CXV (10) ♦CPV (10) ♦ ICPV ( 10) ♦ 

2  CXM (100) ♦CPM( 100) ♦ I CRM (100) ♦NMCXV (10) ♦NMCPV (10) ♦NMICPV ( 10) ♦ 

3  MODV(20) 

C0MMON/tiLKlV/IAV,NlAV^IbV^NIWV^ ICY^NICV^ IDY^NlLiV^ ItV^NlEV^NX^NU^ 

1  NCXV^NCPV^NlCPVtJCXY^  JCP V ♦ JI CP Y ♦CX V ♦ CP V » ICPV ♦ CXM^CPM^ ICPM^ 

2  NMCXV^NMCPV^NMICPY^MODY 
C 

DIMENSION  AMM(AOO)  ♦«(Y  (20)  ♦DUMBY  (20)  ♦XFAY  (20)  ♦XFOV  (20) 
COMMON/BLKMDL/AMM^rtY^DUMBV^XFAY^XFOY 
C  SIGMA  5  TYPE  B  DIMENSION  STATEMENTS  ENU 
C 

1000  F0RMAT(/^13X^2HAR) 

1010  FORMAT (/♦12X^3HaRR) 

1020  FORMAT (7h  REDUAM) 

C 

60  T0( 1^2) ♦NeNThY 
C 

C  GENERATE  AR  BY  REMOVING  COLUMNS  FROM  A 

1  PRINT  1020 
K  =  0 

DO  2000  J=1^N 
IF(LACTY (J) ) 20 10 ♦2000^20 10 
2010  K=K*1 

DO  2020  1=1^N 

CALL  LOC(I,J,IA^N^N^O) 

CALL  LOC(I^K^IB^N^N^O) 

2020  AIM(18)=AM(IA) 

2000  CONTINUE 
C 

C  COPY  RESULT  INTO  AM 

CALL  MCPY(AIM^Am,N^NR^O) 

C 

C  PRINT  AR 

PRINT  1000 

CALL  MXRNP(AM^N^NR^3) 

RETURN 

C 

C  GENERATE  ARR  FROM  AR  BY  REMOVING  ROWS  FROM  AR 

2  K  =  0 

DO  2100  I=1^N 

IF (LACTV( I) >2110 ♦2100^21 10 
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or  r  o 


2110  K=K*1 

DO  2120  J=1,N« 

CALL  LOC(I>J*IA»N»IMK»0) 
CALL  LOC(K»J»IB»iMR»NR»0) 
2120  AIM(IB)=AM(Ia) 

2100  CONTINUE 

COPY  RESULT  INTO  aM 
CALL  MCHY  ( AIM»AM»iMR»NK»U) 

PRINT  ARR 
PRINT  1010 

CALL  MXRNR (AM»NK*NR»3) 

return 

C 

END 


c'  n  r> 


SUBROUTINE  SATLIM (X»K» 1 ) 

SUBROUTINE  TO  LIMIT  THE  RANGE  OF  A  VARIABLE  A  TO  -K<X<R 

IF  (ABS(X)-R)i?000»  2000 *2001 
2001  X=R*SGN(X) 

2000  RETURN 
C 

END 
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o  r:  r' 


FUNCTION  SON (A) 

THE  VALUE  OF  THl  FUNCTION  IS  THE  SION  OF  X 

IF<X)2000»2001»2001 

2000  SGN=-1.0 
GO  TO  2002 

2001  SGN=^l.O 

2002  RETURN 
C 

END 
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FUNCTION  SNSWT (NtNTRY) 

DUMMY  ROUTINt  TO  INT£HHO(iAT£  SENSE  SWITCHES 
SNSWTsO.O 

return 

c 

END 
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SUBROUTINE  TYPOUT ( 1 tNENTRY ) 

♦♦♦•♦SUBROUTINE  TO  TYPE  OUT  MESSAGES 

GO  T0(l*2»3»4»5) fNENTHY 
C 

1000  FORMAT (/H  TYPUUl) 

1201  FORMAT  (2MSS»  ID 

1202  FORMAT (12HNX  fOO  LARGE) 

1203  FORMAT(3HSs1) 

C 

1  WRITE(NTYPE* 1201)  1 

return 

c 

2  WRITE(NTYP£» 1202) 

RETURN 

C 

3  WRITE(NTYPE» 1203) 

RETURN 

C 

4  PRINT  lOGO 

CALL  iRANOPdiNI  YPt,lA»lA»lA»IA»lA.lA«4) 

return 

C 

5  CONTINUE 

return 

C 

END 
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B.  3  Mathematical  Operations  Package 

This  section  presents  listings  of  the  subroutines  which  are  used 
to  perform  mathematical  operations  on  arrays. 


FUMCTION 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

FUNCTION 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

subroutine 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 


ELM(A»L»M»N) 
ELMA(NENTRY»A, I ♦ J»V»N) 
6MAU0(A»d»R,N,M) 

GMPRU( A»B»K,N»M»L) 
GMSUb(A»B»R»N*M) 

GMTHA (A»R»N»M) 
GT05yM(X*XS,NX) 

IELM( IA»L»M»N) 

IMCPY(IA»IR,N»M.MS) 

LOC(I»J»lR»N»M»MS) 

MCPY (A»R»N*M»MS) 

MMAUO(N»ALPhA*A»B£TA»B»C) 

MPKl)<A»b»K»N»M»MSA»  MSB  ♦  L ) 

MTRA(A»KtN*P»MS) 

SINV(NtAl»B»A*D) 

SYMTOG(XS»X»NX) 
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FUNCTION  ELM(A»L»M»N) 

FUNCTION  RETURNS  THE  VALUE  OF  THE  L*M  TH  ELEMENT  OF  THE  MATRIX 
A  WHICH  HAS  N  ROWS  ANO  AN  ARBITRARY  NUMBER  OF  COLUMNS 
A  WHICH  HAS  N  ROWS  AND  AN  ARBITRARY  NUMBER  OF  COLUMNS 
A  IS  STORED  IN  OENEkAL  FORM  COLUMN  BY  COLUMN 

DIMENSION  A(l), 

C 

ELM=A(M*N-N*L) 

RETURN 

C 

END 
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SUBROUTINE  ELMA (NENTRY ♦ A» I ♦ J» V tN) 

SUBROUTINE  TU  v^RITE  INTO  AND  READ  FROM  MEMORY  THE  1»JTH  ELEMENT 
OF  The  MATKIA  A 

A  HAS  N  ROWS  ANU  AN  ARBITRARY  NUMBER  OF  COLUMNS 
A  IS  STORED  IN  UENERAL  FORM  COLUMN  BY  COLUMN 

dimension  A(i) 

GO  T0(l»2) ♦NlNTRY 

A(I»J)=V 

1  A(I*(J“1)*N)  =V 
RETURN 

V=A(I. J) 

2  V=A(I» (J-1)*N) 

C 

return 

c 

END 
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SUBROUTINE  GMADU ( A»B*K»N»M) 

SUBROUTINE  PtHFURHS  MATRIX  ADDITION*  R=A*B»  WHERE  A*b  AND  K  ARE 
N  BY  M  matrices  ARE  GENERAL  MATRICES  STORED  IN  GENtRAL  FORM 
COLUMN  BY  COLUMN 

DIMENSION  A(1)»«(1)»H(1) 

C 

NM=N*M 

DO  110  1=1 *NM 
110  R{I)=A<I)  ^Bd) 

return 

c 

END 


o  n  o  o  o 


SUBROUTINE  GMPRU ( A»B*R»N»M*L) 

FORM  THE  PRODUCT  R=A*B  WHERE  A  IS  A  N*M  MATRIX  AND  B  IS  A  M<>L 
MATRIX 

A»B  AND  R  ARE  STORED  IN  GENERAL  MATRIX  FO>^M  COLUMN  BY  COLUMN 

DIMENSION  A( 1) »B(1) ♦K(l) 

C 

IR=0 

IK=-M 

DO  10  K=1»L 

IK=IK>M 

DO  10  J=1»N 

IR=IH*I 

JI=J-N 

IB  =  IK 

R(IR)=0.0 

DO  10  I=lfM 

JI=JI*N 

IB=ie+l 

10  R(IR)=R(IR) ♦A(JI»*b(IB) 

RETURN 

C 

END 
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SUBROUTINE  GMSU«(A*b»K»N»M) 

SUBROUTINE  PERFORMS  MATRIX  SUBTRACT ION»  R=A-B,  WHERE  A»ri  AND  R  Aki 
N  BY  M  MATRICES. 

A»8  and  R  are  stored  in  general  MATRIX  FORM  COLUMN  BY  COLUMN 

DIMENSION  A  ( I)  ♦B(  1)  tRd) 

C 

NM=N*M 

DO  110  I=1»NM 
110  R(I)=A(I)-B(1) 

RETURN 

C 

END 
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SUBROUTINE  GMTRa ( AtH»N»M) 

transpose  a  OENtRAL  MATRIX 

A  -  NAME  OF  MAThU  TO  BE  TRANSPOSED 
R  -  name  of  resultant  matrix 

N  -  NUMBER  OF  RUWS  OF  A  AND  COLUMNS  OF  R 
M  -  NUMBER  OF  COLUMNS  OF  A  AND  ROWS  OF  R 

dimension  A(1) ♦R(l) 

C 

IR=0 

DO  10  1=1 ♦N 
IJ=I-N 
DO  10  J=1»M 
IJ=IJ*N 
IR=1R*1 

10  R(IR)=A(IJ) 

RETURN 

C 

END 
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SUBROUTINE  G lOSYM (X,XS*NX) 

PROGRAM  converts  A  SQUARE  NX  BY  NX  MATRIX  INTO  A  VECTOR  OF  LENGTH 
NF*(NF-*-1)/2  AND  whose  ELEMENTS  CONSIST  OF  THE  UPPEk  TRIANGLE  OF 
the  NX  BY  NX  MATRIX*  STORED  IN  COLUMNAR  FORM. 

THE  MATRIX  X  MUST  BE  STORED  IN  GENERAL  FORM  COLUMN  BY  COLUMN 

DIMENSION  X(l) *aS(1) 

C 

LL=0 

DO  10  J=1*NX 
DO  10  I=1»J 
LL=LL*1 
K=(J-1)*NX+I 
10  XS(LL)=X(K) 

RETURN 

C 

END 
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noon 


FUNCTION  IELM(IA»L»M*N) 


FUNCTION  RETURNS  THE  VALUE  OF  THE  L*M  TH  ELEMENT  OF  THE  MATRIX 
lA  WHICH  HAS  N  ROWS  AND  AN  ARBITRARY  NUMBER  OF  COLUMNS 

DIMENSION  IA(1) 

IELM=IA(M*N-N*L) 

RETURN 
C 

END 
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SUBROUTINE  iMCPy  ( 1  A»  Ihi»N.H*MS) 

MCPY  copies  entire  N  by  M  matrix  IA  into  N  by  M  MATkIX  IK 

MS  -  one  OIGII'  number  for  storage  mooe  of  matrix  IA  (ANU  ir 
0  -  general 
I  -  symmetric 

a  -  DIAGONAL 

DIMENSION  1A(1)»1R(I) 

COMPUTE  VECTOR  LENGTH,  IT 
CALL  LOC (N,M,1T,N,M,MS) 

C  COPY  MATRIX 

DO  1  1=1, IT 
1  IR(I)=IA(I) 

RETURN 

C 

END 
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SUBROUTIME  LUC ( 1 ♦ Jf ik»N*M»MS) 

SUBROUTIiME  to  generate  vector  subscript  For  an  element  In  a  matrix 
OF  specified  storage  mode. 

MS  =0  subscript  is  computed  for  a  matrix  with  n*m  elements 

IN  STORAGE  (GENERAL  MATRIX) 

MS=1  subscript  is  computed  for  a  matrix  with  N*(N+1)/2  in 

STORAGE  (UPPER  TRIANGLE  OF  SUMMETRIC  MATRIX).  IF 
element  is  In  lower  TRIANGULAR  PORTION.  SUBSCRIPT  IS 
CORRESPONDING  ELEMENT  IN  UPPER  TKlANGLE. 

MS=2  SUBSCRIPT  IS  COMPUTED  FOR  A  MATRIX  WITH  N  ELEMENTS 
IN  STORAoE  (DIAGONAL  ELEMENTS  OF  DIAGONAL  MATRIX). 

IF  element  is  NOT  ON  DIAGONAL  (AND  THEREFORE  NOT  IN 
STORAGE).  IR  IS  SET  TO  ZERO. 

IX  =  I 
JX*J 
IA=I-J 

IF(MS-I)  10. 20. jo 
10  IRX=N#(JX-1) ♦IX 
GO  TO  36 

20  IF(IA)22.24.24 

22  IRX=IX+ ( JX»JX-JX)/2 
GO  TO  36 

24  IRX=JX+ (IX*IX-IX)/2 
GO  TO  36 
30  IRX=0 

IF(IX-JX)36. 32. 36 
32  IRX=IX 
36  IR=IRX 
RETURN 
C 

END 
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SUBROUTINE  MCPT ( A»K»N*M»MS) 

MCPY  COPIES  ENTIRE  N  BY  M  MATRIX  A  INTO  N  BY  M  MATRIX  R 

MS  -  ONE  OIOIT  NUMBER  FOR  STORAGE  MODE  OF  MATRIX  A  (AND  R) 
0  -  GENERAL 

1  -  SYMMETRIC 

2  -  DIAGONAL 

DIMENSION  A(I)  ♦R(U 

COMPUTE  VECTOR  LENGTH*  IT 
CALL  LOC(N»M*IT*N*M»MS) 

C  COPY  MATRIX 

DO  1  I=I»IT 
I  R(I)=A(I) 

RETURN 

C 

END 
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SUBROUT IME  MMAOU(Nt ALPhA,A*BETA*B*C) 

C 

C  SUBROUTINE  Tu  FORM  THE  WEIGHTED  SUM  OF  TWO  ARRAYS 

C  OF  DIMENSION  N 

C  C=ALPHA»A*6ETA*M 

C 

dimension  A(i) ♦«(!) »C(1) 

c 

DO  I  I=1*N 

1  C(I)=ALPHA*A(i)+6ETA*B(I) 

RETURN 

C 

END 
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SUBROUTINE  MPRD ( A»B»R»N»M»MSA»MSB*L) 

MPRD  MULTIPLIES  N  BY  M  MATRIX  A  BY  M  BY  L  MATRIX  B  AND  STORES  THE 
PRODUCT  INTO  N  BY  L  MATRIX  R 

MSA  -  ONE  DIBIT  NUMBER  FOR  STORAGE  MODE  OF  MATRIX  A 
0  -  GENERAL 

1  -  SYMMETRIC 

2  -  DIAGONAL 

MSB  -  SAME  AS  MSA  EXCEPT  FOR  MATRIX  B 

DIMENSION  A(l) *8(1) »R(1) 

SPECIAL  CASE  FOR  DIAGONAL  BY  DIAGONAL 
MS=MSA*10.>MSB 
IF(MS-22)  30»10»30 
10  DO  20  I=1»N 
20  R(I)=A(I)*B(I) 

RETURN 

C 

C  ALL  OTHER  CASES 

30  IR=1 

DO  90  K=ltL 
DO  90  J=1»N 
R(IR)=0 
DO  ao  I=1*M 
IF(MS)40»60*40 

40  CALL  LOC(J»I»IA*NtM»MSA) 

CALL  L0C(I»K»I8»M,L»MSB) 

IF(IA)50»80»b0 
50  IF<IB)70»80»70 

60  IA=N*(I-1)+J 

IB=M*(K-1)*I 

70  R(IR)=R(IR)+A(Ia)<»B(IB) 

80  CONTINUE 
90  IRsIR+1 
RETURN 
C 

END 
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SUBROUTINE  MTKA( A»K»iN»M»M5) 


MTRA  TRANSPOSES  N  df  M  MATRIX  A  TO  FORM  M  BY  N  MATRIX  R 

MS  -  ONE  DIOIT  NUMBER  FOR  STORAGE  MODE  OF  MATRIX  A  (AND  R) 

0  -  general 

1  >  SYMMETRIC 

E  -  diagonal 

DIMENSION  Ad)  .K(l) 

IF  MS  IS  1  OR  COPY  A 
IF(MS)  lOtBOtIO 
10  CALL  MCPY(A*R*N»N,MS) 

RETURN 

TRANSPOSE  GENERAL  MATRIX 
20  IR=0 

DO  30  I=1»N 
IJ=I-N 
DO  30  J=1.M 
IJ=IJ*N 
IRslR^l 

30  R(IR)=A(1J) 

RETURN 

C 

END 
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SUBROUTINE  SINV (N« AI »d*A«D) 

C 

C*****suBROUTINE  TO  GENERATE  THE  INVERSE  OK  THE  MATRIX  Al 
C  THE  MATRICES  Al  ANO  8  ARE  STORED  IN  GENERAL  FORM 

C  INPUT  MATRIX  IS  Al 

C  ,  OUTPUT  INVERSE  MATRIX  IS  B 
C  N  IS  THE  ORDER  OF  Al 

C  D  IS  THE  DETERMINANT  OF  AI 

C 

C  L  -  WORK  VECTOR  OF  LENGTH  N 

C  M  -  WORK  vector  OF  LENGTH  N 

C 

c  the  standard  GAUSS-JORDAN  method  IS  USED.  The  determinant 

C  IS  ALSO  CALCULATED.  A  DETERMINANT  OF  ZERO  INDICATES  THAT 

C  THE  MATRIX  IS  SINGULAR. 

C*****WITH  MODIFICATIONS  TO  INPUT  MATRIX  IN  VECTOR  FORMAT 
C 

c 

C  dimension  AI (20*20) ♦B(20»20) tATAGO) »L(20) .M(20) 

DIMENSION  AI (1) *8(1) »A(1) .L(20) ♦M(20) 


C 

C  . . 

c 

c  IF  A  DOUBLE  PRECISION  VERSION  OF  THIS  ROUTINE  IS  DESIRED*  THE 

C  C  IN  COLUMN  1  SHOULD  BE  REMOVED  FROM  THE  DOUBLE  PRECISION 

C  STATEMENT  WHICH  FOLLOWS. 

C 

C  DOUBLE  PRECISION  A*0*8IGA*HOLD 

C 

C  THE  C  MUST  ALSO  BE  REMOVED  FROM  DOUBLE  PRECISION  STATEMENTS 

C  APPEARING  IN  OTHER  ROUTINES  USED  IN  CONJUNCTION  WITH  THIS 

C  ROUTINE. 

C 

C  THE  DOUBLE  PRECISION  VERSION  OF  THIS  SUBROUTINE  MUST  ALbO 

C  CONTAIN  DOUBLE  PRECISION  FORTRAN  FUNCTIONS.  ABS  IN  STATEMENT 

C  10  MUST  BE  CHANGED  TO  DABS, 

L  STORAGE  OF  AI  ELEMENT  IN  A 

C 

KK=N*N 
DO  5  J=1*KK 
5  A{J)=AI(J) 

C 

C  . . 

c 

c  SEARCH  FOR  LARGEST  ELEMENT 

C 

0=1.0 

NK=-N 

DO  80  K=1*N 

NK=NK+N 

L(K)=K 

M(K)=K 

KK=NK*-K 

BIGA=A(KK) 

DO  20  J=K*N 
IZ=N*(J-1) 

DO  20  I=K*N 
IJ=IZ+I 

10  IF(ABS(BIGA)-ABS(A(IJ)))  15,20*20 
15  6IGA=A(IJ) 
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20 


C 

c 

c 


25 


38 


40 


C 

C 

C 


C 


45 

46 


48 


50 


55 


t 

C 

C 


60 

62 

65 

C 

C 

C 


L(K)=I 

M(K)=J 

CONTINUE 

INTEHCHANbE  HOWb 
J=L (K) 

IF(J-K) 35»35»25 

ki=k-n 
DO  30  I=1»N 

ki=ki^n 

HOLO=-A(t<I) 

JI=KI-K*J 

A(KI)=A(JI) 

A(JI)=HULD 

INTEhCHANUE  COLOMNi) 


I=M(K) 

IF(I-K)45, 45*38 
JP=N*(I-1) 

DO  40  J=l»N 
JK=NK+J 
JI=JP*J 
HOLD=-A( JK) 

A(JK)=A(JI) 

A(JI)=HOLD 

DIVIDE  COLUMN  Hi  MINUS  PIVOT  (VALUE  OF  PIVOT  ELtMENf  IS 
CONTAINED  IN  BibA) 

IFCBIGA)  ABfAbtHB 

D=0.U 

60  TO  150 

DO  55  1=1 tN 

IF(I-M50*55»b0 

1K=NK-*I 

A(IK)=A(lK)/(-HlGA) 

CONTINUE 

REDUCE  MATkIA 

DO  65  I=1»N 

IK=NK+I 

HOLO=A(IK) 

IJ=I-N 
DO  65  J=1*N 
IJ=IJ*N 

IF(I-K)60. 65*60 
IF(J-K)62*65»62 
KJ=IJ-I*K 

A(IJ)=H0LD*A(KJ)-*A(IJ) 

CONTINUE 

DIVIDE  ROW  BT  PIVOT 


KJ=K"N  . 

DO  75  J=1*N 
KJ=KJ+N 

IF(J-K)70*75*70 
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70  A(KJ)=A(KJ)/dIGA 
75  CONTINUE 

PRODUCT  OF  PIVOTS 

D=D*BIGA 

REPLACE  PIVOT  BY  RECIPROCAL 

A(f<K)=l.0/BIOA 
80  CONTINUE 

FINAL  ROW  ANU  COLUMN  INTERCHANGE 

K  =  N 

100  K=(K-1) 

IF(K)  150»i50»I05 
105  I=L(K) 

IF(I-K) 120f 1EO»105 
108  JQ=N*(K-1> 

JR=N*(I-1) 

DO  110  J=1,N 

JK=JQ+J 

H0LD=A(JK) 

JI=JR  +  J 
A(JK)=-A(Ji) 
no  A(JI)=riOLO 
120  J=N(K) 

IF(J-K)  100*100»125 
125  KI=K-N 

DO  130  I  =  nN 

KI=KnN 

HOLO=A(M) 

JI=KI-K*J 

A(KI)=-A(JI) 

130  A(JI)=H0LD 
60  TO  100 

150  LL=0 

C  DO  151  J=1»N 

KK=N*N 

DO  151  J=1*KK 

151  B(J)=A(J) 

return 

C 

END 
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SUBROUTINE  SYMTUb (AStAtNX) 

PROGRAM  CONVERT^  A  bYM.  MATRIX  VECTOR  (IN  SUPPKESStO  SYM.  bTOKAut) 
WHOSE  LENGTH  IS  NX«(NX*I)/2,  INTO  A  GENERAL  MATRIX  VECTOR  WHOSE 
LENGTH  IS  NX*NX. 

dimension  X(l)  tXSd) 

c 

LL=0 

DO  10  J=1«NX 

DO  10  I=1*J 

LL=LL+1 

K=<J-1)*NX>I 

M=(I-l)*NX*J 

X(M)=XS(LL) 

10  X(lO=XS(LL) 

return 

c 

END 
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B.  4  Input- Output  Operations  Package 


This  section  presents  listings  and  usage  descriptions 
of  subroutines  which  are  used  to  perform  input- output  data 
operations. 


SUBROUTINE  IMXRnP (M»NA»NBtNENTRY) 

SUBROUTINE  IRANUP  1 A  *  IB»  IC»  ID»  IE » IF»  1  G,NENTRY  ) 
SUBROUTINE  MAKNP ( VA»NA ♦NB»MENTRY) 

SUBROUTINE  NAMRnP  (M*iMA,N8*NENTRY) 

SUBROUTINE  RANDP (NEnTH Y ) 

SUBROUTINE  RANDPU  (NU*0A  »DB*DC» OD*DE »L)F » UG. NENTR Y) 
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SUaROUTlNE  IMXRWP  (M»NA»NB»NENTf<Y ) 

SUaROUTiNE  READS»PK1in»TS  AND  STORES  INTEGER  NA*Nri  MATRIX 
matrix  is  stored  in  GENERAL  FORM  COLUMN  BY  COLUMN 

DIMENSION  M(i) 

1000  FORMAT (TI 10) 
lOOa  F0RMAT(7I15) 

READ  IN  NA  BY  Nb  MATRIX  ROW-WISE  ANU  STORE  INTO  1  DIMENSION 
VECTOR  COLUMN-WISE. 

GO  T0(1»1»E»‘+»2)»NENTRY 

1  J=NA*NB-NA^1 
00  IS  I=i»NA 

READ  100U»  (M(K) ,K=I»J»NA) 

15  J=J*1 

C 

GO  T0(2f3,3»E) »NENrKY 
C 

C  PRINT  NA  BY  NB  MATRIX  ROw-WISE 

2  CONTINUE 
jj=na*nb-na* i 
DO  11  II=1»NA 
IF(NENTRY-d) i2.i0»12 

10  PUNCH  1000* (M(L) »L=I1*JJ»NA) 

GO  TO  11 

12  PRINT  1002.  (M(L) »L=I1» JJ»NA) 

11  JJ=JJ*1 
C 

3  RETURN 
C 

C  READ  AND  PRINT  HEADING  CaRO  BEFORE  READING  AND  PRINTING  MATRIX 

4  CALL  RAN0P(4) 

GO  TO  1 

C 

END 


267 


o  o  n 


SUBROUTINE  IKANUP (nU ♦ I A » IB» 1C» IU» IE ♦ IF  « I b» NtNlKT ) 

SUBROUTINE  TO  READ  AND  PRINT  INTEGER  DATA 

DIMENSION  iV(n 
C 

1000  format (TIlu) 

1010  F0RMAT(7I1S) 

c 

GO  T0(1»1,E,4) »NENTRY 

1  READ  1000»lA*IB»IC»IU*lE»IF,iG 
60  T0(2* J. »NENTrtY 

2  IV(1)=IA 
IV(2)=Id 
IV (3)=IC 
IV(4)=ID 
IV(5)=IE 
IV(6)=IF 
IV(7)=IG 

PRINT  1010* (lV(i) ,I=1»ND) 

3  RETURN 
C 

4 


CALL  RANDP(4) 
GO  70  1 


oo  o  on  non  o  o  noon 


subroutine  MXRNH(VA*NA,NB»NENTRY) 

SUBROUTINE  READS  AND/OH  PRINTS  THE  NA«NB  MATRIX  VA  WHICH  IS  STORED 

general  form  column  by  column 

DIMENSION  vA(1) 

1000  FORMAT(7E10.0) 

1002  format (7F1S. 6) 

1003  FORMAT(7F10.4) 

60  T0(l*i,E»4»2) jNENTHY 

READ  IN  NA  BY  N«  MATRIX  ROW-WISE  AND  STORE  INTO  1  DIMENSION 
VECTOR  CULUMN-WiSE. 

1  J=NA*NB-NA+1 
DO  IS  I=1»NA 

READ  1000»  (VA(K) ,K=I,J,NA) 

15  J=J*1 

GO  T0(2»3»3t2) »N£NTkY 

2  CONTINUE 

PRINT  NA  BY  nB  MATRIX  RUW-WISE 
JJ=NA*NB-iN|A*1 
DO  11  II=1*NA 
IF(NENTRY-5) i2»i0.12 

10  PUNCH  1003* (VA(L) »L=1I»JJ»Na) 

GO  TO  11 

12  PRINT  1002*  (VA(L)  ♦L  =  1I.JJ,n|A) 

11  JJ=JJ*1 
RETURN 

3  return 

READ  AND  PRINT  HEADING  CARO  BEFORE  READING  AND  PRINTING  MATRIX 

4  CALL  RANDP(4) 

60  TO  1 

C 

END 
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SUBROUTli'JE  NAMK'MP  (H*NA»NB*NENT«Y) 

SUBROUTIME  REAObtPPINrS  AND  STORES  INTEGER  NA*NB  MATRIX 
OF  four  CHARACTtR  NAMES 

MATRIX  IS  STORED  IN  GENERAL  FORM  COLUMN  BY  COLUMN 
DIMENSION  M(l) 

1000  format  (  IX»A4*  1X»A'+»  iA»A4»  IX,A4»  IX»a4»  IX*  A4»  IX,A4»  iX*  A4»  IX*  a4» 
I  1X*A4* iX*A4> IX*AA* IX*A4* 1X«A4) 

1002  F0RMAT{nx*A4*  11X*Aa»  I1X*A4»  I1X*A4*  I  IX*A4,  UX*A4*  IIX,A4» 

GO  TO(I* 1*2*4) ♦nENTRY 

READ  IN  NA  BY  NB  MATRIX  ROW-WISE  AND  STORE  INTO  1  DIMENSION 
VECTOR  column-wise. 

1  J=NA*Nd-NA+l 
DO  IS  1=1, NA 

READ  1000*  (M(K) ,K=I,J,NA) 

IS  J=J*1 

60  T0(2*3,3*2) ,NEWTRY 

PRINT  NA  BY  Nd  MATRIX  KOW-WISE 

2  CONTINUE 
JJ=NA*iNti-NA^I 
DO  11  I1=1*NA 

PRINT  1002* (M(L) *L=1I,JJ*NA) 

11  JJ=JJ+1 

3  RETURN 

READ  IN  HEADING  CARO  BEFORE  READING  AND  PRlNTIwO  M 

4  CALL  RAN0P(4) 

GO  TO  1 


o  n  o 


SUBROUTINE  RAND^>  (NtNTRY ) 

SUBROUTINE  TO  HEAD  AND  HHINT  HEAOINli  CARDS 
DIMENSION  ENAHEIB) 

double  precision  FNAME 

c 

1000  format (BAB) 

1001  FORMAT(lHl) 

1010  FORMAT (EX,A8»2X*A6»2A»A8»2X,A8»2X»A8*2X»AB»2X,a8) 
1020  format ( /X*A8»7X»a8»7X»A8*7X*a8»7X»A8»7X» AA»7X» a8) 
C 

GO  T0( 1»2»3»A) tNENTHY 
C 

1  PRINT  1001 

2  READ  1000* (FNAMt(I) »I=1»8) 

PRINT  1000* (FNAME(I) ♦I=l»8) 

RETURN 

C 

3  PRINT  1001 

4  READ  1010, (FNAMt(I) ♦1=1»7) 

PRINT  1020,  (t'NAMt(i)  *1  =  1,7) 

RETURN 


SUBROUTINE  RmNURD (NU»UA * UBtOC »00*0t ♦UF«UG» NENTK T) 
C 

C  SUBROUn.'^E  TO  KtAU  ANU  PRINT  FLOATING  POINT  UATA 
C 

dimension  0V(/) 

c 

1000  format ( /ElO.O) 

1010  format (7F15.b) 

c 

GO  TO(  1  *  ♦NENIRV 

C 

1  READ  1 00  0 « UA « Ud*  L)C  *  UO«  OE « OF  y  DG 
GO  TO(2»3,3»E) *NENlRY 

2  DV(1)=DA 
DV(2)=Da 
0V(3)=DC 
DV(4)=DD 
DV(5)=UE 
UV<6)=DF 
DV(7)=UG 

print  1010*  (UV(1)  ,I  =  1»i>jU) 

3  return 

c 

4  CALL  RANDP(4) 

GO  TO  I 

C 

END 
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TABLE  OF  SYMBOLS 


Software  *** 


Variable 

Definition 

Notation 

A 

deformation-force  or  position- 
position  matrix 

AM 

A 

m 

actual,  deformation-force  or  position- 
position  matrix  of  the  mirror 

AMM 

■^mr 

reduced  version  of  A 

m 

Ar 

reduced  A  matrix 

-I'' 

A 

rr 

doubly  reduced  A  matrix  > 

❖ 

^s 

ambiguity  sensor  outputs 

ASV 

^tilt 

tilt  control  system  gain 

GTILT 

Ja 

actual  rms  figure  error 

❖ 

Jfs 

figure  sensor  performance  index 

* 

Jm 

measured  rms  figure  error 

PINDEX 

K 

feedback  gain  matrix 

GAINM 

K 

a 

actuator  error  gain 

GA 

generalized  linear  control  system 
gain  matrix 

GAINM 

simplified  linear  control  system  gain 
matrix 

.  GAINM 

lead  screw  gain 

^o 

linear  optimal  control  system  gain 
matrix 

GAINM 

^sa 

integral  of  actuator  output  gain 

GB 

m 

c 

desired  figure  actuator  outputs 

UFV 

*  Stored  temporarily. 


**  The  diagonal  elements  of  the  diagonal  matrix  B  are  stored  in  the 
array  WGTV. 

Corresponding  sigma  2  variable  names  may  be  generated  by  pre¬ 
fixing  Q  to  floating  point  variable  names  or  suffixing  Q  to  fixed  point 
variable  names. 
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Variable 


A 

m 


“c 

m 

X 

n 

N 


max 


m 


n 


ma 


n 


mf 


n 


meas 


n 


mint 


n 


pos 


n 


^tilt 


n. 


tims 


n 


wait 


n 


0) 


Definition 

Software 

Notation 

scaled  value  of  m 

c 

QUFV 

scalar  gains  relating  actuator  commands 

ASCALV 

measured  figure  actuator  outputs 

UFAV 

maximum  actuator  command  magnitude 

UFMAX 

measured  actuator  output 

UFAV 

number  of  measurement  positions 

N 

motor  gear  ratio 

number  of  actuator  slope  measurements 
to  be  performed  and  averaged 

NMEAS* 

number  of  Ar  matrices  to  be  measured 
experimentally  and  averaged 

NMEAS* 

number  of  measurement  samples  at 
each  measurement  location 

NMEAS* 

number  of  cycles  between  measurements 

NMINT 

number  of  cycles  alloted  for  figure  sensor 
transients  to  decay 

NPOS 

number  of  actuators 

NR 

number  of  measurement  position  incre¬ 
ments  during  tilt  alignment 

NTILT 

total  number  of  cycles  executed  when 
EAMCS  is  called 

NTIMS 

number  of  cycles  during  which  the 
actuators  are  operative 

NWAIT 

number  of  control  cycles  velocity  pulse 
is  applied  t  =  n  At 

NOVEL 

time 

T 

actuator  time  constants 

TACTV 

Ambiguity  does  not  occur  in  the  software  because  NMEAS  is 
not  in  common. 
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Variable 

Definition 

Software 

Notation 

figure  sensor  filter  time  constant 

FSTFLT 

control  computation  cycle  time 

TSENS 

velocity  command  pulse  width 

TCVEL 

W 

performance  index  weighting  factors 

WGTV 

X 

X  figure  error  position  coordinate 

XFSV 

initial  figure  disturbance  with  zero 
actuator  input 

XFDV 

Xf 

actual  figure  error 

XF 

Xfr 

reduced  measured  figure  error  vector 

XFRV 

X-, 

fp 

processed  figure  error  data 

XFV 

^fm 

measured  figure  error 

XF 

^sf 

vector  of  the  sums  of  the  figure 
measurements  at  the  measurement 
locations 

QDUMVB 

^ssf 

vector  of  the  sums  of  the  squares  of  the 
figure  measurements  at  the  measure¬ 
ment  locations 

QDUMVC 

y 

y  figure  error  position  coordinate 

YFSV 

GREEK  SYMBOLS 

a 

m 

slew  control  system  command 

UFV 

^ab 

ambiguity  correction  value 

AMBIG 

-^as 

mirror  model  matrix  scale  factor 

ASCALE 

4 

figure  sensor  phase  detector  filter  output 

FSFLTO 

% 

threshold  level  on  the  rms  figure  error 

SIGLIM 

scalar  gain  factor 

GAIN(l) 

Variable 

Definition 

Software 

Notation 

4 

control  law  gain  factor 

GAIN(l) 

stored  value  of 

'^mf 

mean  values  of  the  figure  measurements 

XFMN 

'^mrf 

rms  values  of  the  figure  measurements 

XFSIG 

'^ms 

matrix  inversion  scale  factor 

AIMSCL 

^nf 

noise  input  to  the  figure  sensor  phase 
detector 

FSNOIS 

4 

figure  sensor  phase  detector  output 

FSPDO 

4d 

second-order  ambiguity  sensor  output 
coefficient 

BSDP 

4  m 

maximum  ambiguity  sensor  output 

BSMP 

4w 

computer  switching  boundary 

XFSW 

4 

threshold  value  for  rms  measurement 
error 

SIGLIM 

4  s 

threshold  value  and  ambiguity  factor 
computation 

BTS 

4a 

actual  figure  sensor  error 

UFV 

^xf 

figure  error  input 

XF 

4; 

interpolation  factor 

SLPMN 

4 

amplitude  of  the  position  control  system 
velocity  drive  pulse 

CVEL 

'>'a 

actuator  input  transition  matrices 

AGAMV 

figure  sensor  filter  input  transition  matrix 

FSGAM 

At 

real  time  control  system  cycle  time 

TSENS 

'aa 

actuator  perturbation  for  actuator  test 

DACT  ♦ 

4f 

actuator  perturbation  for  mirror  model 
generation 

DACT  ♦ 

*  Not  in  common. 
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Variable 


Definition 


Software 

Notation 


figure  sensor  laser  operating  wavelength 
rms  figure  error  noise  level 
figure  sensor  noise 
actuator  state  transition  matrices 
figure  sensor  filter  transition  matrix 


FSNSIG 

FSNOIS 

APHIV 


FSPHI 


Software  ** 
Notation 

Definition 

Variable 

AGAMV 

actuator  input  transition  matrices 

T 

^a 

AIMSCL 

matrix  inversion  scale  factor 

8 

'^ms 

AM 

deformation-force  or  position- 
position  matrix 

A 

AMBIG 

ambiguity  correction  value 

*^ab 

AMM 

actual  deformation-force  or  position- 
position  matrix  of  the  mirror 

V 

APfflV 

actuator  state  transition  matrices 

ASCALE 

mirror  model  matrix  scale  factor 

^as 

ASCALV 

scalar  gains  relating  actuator  commands 

"'g 

ASV 

vector  of  ambiguity  sensor  outputs 

a 

s 

BSDP 

second-order  ambiguity  sensor  output 
coefficient 

^sd 

BSMP 

maximum  ambiguity  sensor  output 

^sm 

BTS 

threshold  value  and  ambiguity  factor 
computation 

^s 

CPM 

stored  PARV  modifications 

UFV 

amplitude  of  the  position  velocity  drive 
pulse 

CXM 

stored  XV  modifications 

DACT* 

actuator  perturbation  for  actuator  test 

'aa 

DACT* 

actuator  perturbation  for  mirror  model 
generator 

'af 

*  Ambiguity  does  not  occur  in  the  software  because  DACT  is 
not  in  common. 


**  Variable  names  containing  Q  may  be  referenced  by  deleting  the  Q 
and  referencing  the  resulting  name  (i.  e. ,  NQ  — -  N) 


Software 

Notation 

Definition 

Variable 

DT 

real  time  control  system  cycle  time 

At 

DTE 

time  round  off  correction  factor 

DTNOIS 

stochastic  noise  generation  interval 

DTPLOT 

plot  data  storage  interval 

FSCALE 

figure  sensor  measurement  scale  factor 

FSFLTO 

figure  sensor  phase  detector  filter  output 

FSGAM 

figure  sensor  filter  input  transition  matrix 

^f 

FSPHI 

figure  sensor  filter  state  transition  matrix 

<Pf 

FSPDO 

figure  sensor  phase  detector  output 

FSNOIS 

noise  input  to  the  figure  sensor  phase 
detector 

^nf 

FSNSIG 

rms  figure  error  noise  level 

^f 

FSTFLT 

figure  sensor  filter  time  constant 

tf 

GA 

actuator  error  gain 

K 

a 

GAINM 

feedback  gain  matrix 

K 

GAINM 

simplified  linear  control  system  gain 
matrix 

GAINM 

linear  optimal  control  system  gain  matrix 

K 

o 

GAINM 

generalized  linear  control  system  gain 
matrix 

GAIN(l) 

scalar  gain  factor 

^g 

GB 

integral  of  actuator  error  gain 

^sa 

GTILT 

tilt  control  system  gain 

®tilt 

ICPM 

stored  integer  parameter  modifications 
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Software 

Notation 

Definition 

Variable 

IMODV 

plot  scaling  control  vector 

IPLOTV 

plotted  elements  of  the  data  transfer 
vector  XV 

IRAND 

initial  starting  value  for  random  number 
generator 

ISPARV 

input  data  storage 

JCPV 

modified  elements  of  PARV 

JCXV 

modified  elements  of  XV 

JICPV 

modified  elements  of  IPARV 

LACTV 

actuator  position  assignment  vector 

LREFAV 

segmented  mirror  actuator  assignments 

MODOP 

control  system  type  identifier 

MODV 

vector  of  operating  modes 

MSEQV 

figure  sensor  scan  sequence 

N 

number  of  figure  measurement  points 

n 

NCPV 

number  of  modified  parameter  values 

NCTILT 

number  tilt  control  system  control  system 
operating  cycles 

NOVEL 

number  of  control  cycles  velocity  pulse  is 
applied  t^  =  n^  At 

n 

CO 

NCXV 

number  of  modified  initial  conditions 

NFLGA- 

NFLGD 

transfer  identification  variables 

NHC 

number  of  step  size  halvings 

NHM 

maximum  number  of  step  size  halvings 

NIC 

number  of  successful  iterations 
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Software 

Notation 

Definition 

Variable 

NICPV 

number  of  integer  parameters  to  be 
changed 

NIM 

maximum  number  of  iterations 

NMAG 

magnetic  storage  device  assignment 

NMCPV 

names  of  modified  parameters 

NMCXV 

names  of  modified  initial  conditions 

NMEAS* 

number  of  measurement  samples  at  each 
measurement  location 

^meas 

NMEAS* 

number  of  actuator  slope  measurements 
to  be  performed  and  averaged 

n 

ma 

NMEAS* 

number  of  A-^  matrices  to  be  measured 
experimentally  and  averaged 

n  j? 

mf 

NMICPV 

names  of  modified  integer  parameters 

NMINT 

number  of  cycles  between  measurements 

^mint 

NPLOTV 

number  of  plotted  variables 

NPOS 

number  of  cycles  allot ed  for  figure  sensor 
transients  to  decay 

^pos 

NPUNCH 

device  assignment  for  punched  output 

NR 

number  of  figure  actuators 

n 

r 

NRUN 

run  identification  number 

NRUNC 

number  of  completed  runs 

NRUNM 

maximum  number  of  wins 

NSNSWT 

sense  switch  assignment 

*  Ambiguity  does  not  occur  in  the  software  because  NMEAS  is  not 
in  common. 


Software 

Notation 

Definition 

Variable 

NTILT 

number  of  measurement  position 
increments  during  tilt  alignment 

"tilt 

NTIMS 

total  number  of  cycles  executed  when 
EAMCS  is  called 

"tims 

NTYO 

number  of  control  computations  between 
monitor  data  output 

NTYPE 

operator  display  assignment  for  manual 
simulation  control 

NTYPI 

remote  control  input  device  assignment 

NTYPO 

remote  control  output  device  assignment 

NWAIT 

number  of  cycles  during  which  the 
actuators  are  operative 

"wait 

pirroEX 

measured  rms  figure  error 

J 

m 

PLOTV 

plotted  data  vector 

PSCALE 

measurement  position  scale  factor 

QDUMVB 

vector  of  the  sums  of  the  figure 
measurements  at  the  measurement 
locations 

^sf 

QDUMVC 

vector  of  the  sums  of  the  squares  of  the 
figure  measurements  at  the  measurement 
locations 

^ssf 

SCALY 

plotted  data  scales 

SIGLIM 

threshold  level  on  the  rms  figure  error 

/^ft 

SLPMN 

interpolation  factor 

SMXV 

segmented  mirror  actuator  x  coordinate 
values 

SMYV 

segmented  mirror  actuator  y  coordinate 
values 

Software 

Notation 

Definition 

Variable 

SPARV 

input  data  storage 

SXV 

input  data  storage 

T 

time 

t 

TACTV 

actuator  time  constants 

t 

a 

TEND 

simulation  rim  termination  time 

TPRNT 

interval  between  simulation  output  print 

TSENS 

figure  control  computation  cycle  time 

*s 

TVEL 

velocity  command  pialse  width 

UFAV 

measured  figure  actuator  outputs 

m 

m 

UFMAX 

maximum  control  command  magnitude 

m 

max 

UFV 

desired  figure  actuator  outputs 

m 

c 

WGTV 

performance  index  weighting  factors 

w 

XF 

actual  figure  error 

Xf 

XFDV 

initial  figure  error  (m^  =  0) 

^d 

XFV 

measured  figure  error 

^fm 

XFRV 

reduced  measured  figure  error  vector 

^fr 

XFMN 

mean  values  of  the  figure  measurements 

^mf 

XFSIG 

rms  values  of  the  figure  measurements 

^mrf 

XFSV 

X  figure  error  position  coordinate 

X 

XFSW 

nearest  phase  switching  boundary 

^sw 

XFV 

actual  figure  sensor  error 

^xa 

XFV 

processed  figure  error  data 

^fp 

XV 

data  trsinsfer  vector 

YFSV 

y  figure  error  position  coordinate 

y 
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